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INTRODUCTION 



This text is Book 3 of a series of programmed instruction manuals designed 
to teach 9000 Series Card Assembler programming. Successful completion 
of Book 1 (UE-868.1), Book 2 {UE-868.2) and the self-test evaluation 
covering Assembler Language programming are prerequisites for starting 
Book 3. 



In this text, the concepts and techniques taught in the course are 
implemented by a "talk-thru" exercise in which the solution of a typical 
data processing problem is presented. Each stage in the solution is explained 
including the problem statement, formatting, flowcharting, and coding. A 
diagnostic examination covering the flowcharting and coding is included 
in the exercise. 

In the final section of the course, the novice programmer, given a problem 
statement, is responsible for the solution of the problem. The reference 
supplement is designed to provide a convenient means of reviewing 
instructions. 
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TALK-THRU PROGRAM 



This exercise includes all of the documentation required to produce a complete program. The material provided includes 
the process flowchart, source coding, printer format chart, and the assembler listing. You will be instructed to refer 
to this material as you follow the analysis of the problem. 

The exercise begins with a statement of the problem and a description of the input and output parameters. The next 
steps are the flowcharting and coding of a solution. One solution is illustrated on the flowchart and coding sheets 
found on pages 3—18 through 3—23. The several intervening pages of this text give a detailed analysis of this 
solution by showing each block of the flowchart, the coding associated with each block, and a description of the 
rationale and implications of each step. 
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MARKETING SALES REPORT PROBLEM STATEMENT 

The programmer's objective is to prepare a report to management reflecting the total annual sales for each salesman, 
and also, a total of all sales for the year. 

There is one input file and one output file as shown below. 




Figure 3—1 System Flowchart 

Input Data - Sales cards for each salesman. Sales cards contain: Employee number, name and sales 

information. 

Data cards are in employee number sequence. 

Processing - Print headings at top of page (EMPLOYEE NUMBER, SALESMAN and SALE). 

Number ail pages and print a final heading. 

Accumulate total annual sales for each salesman. 

Final total of all sales for the year. 

Output - A printed report showing total annual sales for each salesman and a final total of all sales 

for the year. Maximum number of pages is nine. 

NOTE: To simplify this exercise, title of report, date, and other items normally found in the heading have been 
omitted. 
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INPUT FILE 



The input file Is constructed of 80-character (80-byte) records in the format described below. 



Item 

Employee Number 
Salesman Name 
Sales per Month 



Columns Bytes 

1-6 6 

7-21 15 

22-27 6 



EMPLOYEE NUMBER 
•NAME 



•SALES 



BLANK 



OCOQOOOOOOOOOOODOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOt 

7 8 9 to 11 12 13 H IS » 17 IB 19 20 Z1 22 23 24 25 26 Z7 28 23 30 31 32 33 34 35 36 37 38 39 40 4142 43 44 45 46 47 48 49 50 5) 52 S3 5'\ 

111111111111111111111111111 



mill 



222222222222222 



1 2 7 4 5 6 



111111111111111 



5 5 5 5 5 5 5 5 5 

6666666666666G666866 
7777777777777777777 
8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 



777 



7 8 9 10 11 12 13 14 15 16 17 16 19 2021 



111111 



333333333333333333333333333 

444444444444444 4444 4 44444444444444444444444444444 
555S55555555555S55555555555555555555 



6666666 
777 
8 S 8 8 8 



777 



999999999999999999999999999999399999999999 9-9 999999999 

I 2223 24 25 26 27 28 29 30 31 32 33 34:5 36 37 38 39 40 41 42 4344 45 46 47 48 49 50 51 52 53 



22222222222222222222222222222222222222J 
333333333333333333333333333 

4 4 44/ 
55555555L 
6 666 66 666666686666 666666 66 
7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7;7 7 7 7 7 7 



8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 



30000000000000 

7 88 69 70 71 72 73 74 75 76 77 78 79 83 

M 1 1 1 1 1 1 1 1 1 1 1 1 
2222222222222 
n 3 3 3 3 3 3 3 3 3 3 3 3 
14444444444444 
i 5555555555555 
> 6 6 6 6 6 6 6 6 6 6 6 6 6 
7777777777777 



9999999999999 

68 63 70 7) 72 73 74 75 76 H 78 79 8C 



Figure 3—2 Input Card Format 



OUTPUT REPORT 

The output is a printed report in the following format: 

Column headings are printed at the top of each page. 

Page numbers are printed at the top of each page. 

Lines of print are double spaced. 

Total sales is printed at end of report. 
The Printer Format Chart on the next page illustrates a typical report to be printed in the format specified above. 
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r 



PRIMTER FORMAT CHART 



FORM NUMBER. 
FORM PARTS _ 



APPLICATION- 
RUN NAME 



RUN NUMBER. 



TYPE OF PRINTOUT. 



RECORD NAME. 



RECORD NUMBER. 



PREPARED BY. 
APPROVED BY. 



DATE APPROVED 




START 



LABEL 



t OPERATION « 
10 16 



OPERAND 



1 1 1 1 1 1 1 




STiARI 




0 I 1 1 1 i .L 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 




1 . . . 




1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


,.l L 1 1 l,„l I,- 




i 1 1 1 




1 1 1 1 1 1 1 1 1 1 I 1 1 1 { 1 1 1 1 I 1 1 



The START Assembler-directing instruction defines the starting location 
in memory of the first statement in the program. When the program is 
linked to other subroutines the START address may be changed. 



DEFINE INPUT/OUTPUT DEVICES TO BE USED BY PROGRAM 



LABEL 



t OPERATIONS 
10 16 



72 



READ 1 . . 




DlT,F,GE 




E,O.FA=E,OJ, 1 , , , , 1 , , , , i 


■ ■ 1 F ' ■ ■ 




1 1 1 I 




I0,A1rRBOT,,i , , , , 1 . , , , 1 






1 < . 1 




I,T3X.=iT3,RD„i ■ 1 


1 1 1 1 1 1 1 




1 . , . 




iyiO.DE=^T,HAN,S. . , , i 


III I- 1 1 1 




1 ■ . , 




1 1 ' ' 1 ' ' 1 1 1 1 ' 1 ■ 1 1 1 1 1 1 


P.^N.T, 1 , , 








B^S,Z=|13,2,,, 1 , , , , 1 , , , , 1 


1 1 1 1 1 t 1 




1 1 1 1 




qN.T,I,=,Yp,S.,. 1 


1 1 1 1 1 1 1 




1 1 1 1 




P.I^D.=,2„, , , , 


■ ■■■III 




1 . , . 




PROy=,FpF,. 


1 1 1 1 1 1 1 . 




„l 1 1 1 




FONT=,63 1 ,,,, 1 


1 1 1 1 1 1 1 








■ I ■ ' 1 ■ ' ' ' 1 ' ' 1 1 1 ' ' 1^ -^-1 






1 1 1 1 




■ ■ ' 1 1 ' ■ ■ ■ 1 1 ' 1 1 1 ' ' ■ ' 1 



100 



See note below. 



L__ 



dtp's 



I 



T 



DTF's are not handled by the user program. Handling of DTF's will be 
explained at the end of this talk-thru. The DTF's are positioned here for 
reference only. 



ALLOCATE MEMORY 



LABEL 



« OPERATION* 
10 16 



OPERAND 



■ ■■■!■■ 


qsiNG 




* Of , 


1 1 ■ ■ 1 1 ■ 






* 1 

■ 'in 1 1 1 ■■ 1 1 < 1 1 1 1 1 1 1 1 1 I 1 


1 1 1 1 1 1 1 


1 1 . . 




1 1 1 1 1 1 i t 1 i 1 1 1 1 1 1 1 1 1 1 1 1 



Each USING statement allocates 4096 bytes of memory. (It is assumed 
that the memory storage requirement for this program will not exceed 
8000 bytes.) 




105 
110 



NOTE: The numbers listed near the right margin are referenced to the coding line numbers used 
by the programmer on the coding sheets, pages 3—19 to 3—22. 
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SUPPLY PROGRAM WITH LABELS FOR DTP'S 



LABEL 



t OPERATION « 
10 16 



. . . , 1 , , 




EXTRN 




READ , , , , 


l. l 1 l__L_ 




1 1 1 1 




iiiiiiiiiiiiiiiiii.il. 


1 1 1 1 1 1 1 




till 




1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 



READ and PRNT will be defined in another program. 



SUPPLY SYSTEM WITH LABELS OF SUBPROGRAMS 



LABEL 



« OPERATION « 
10 16 



OPERAND 



1 1 1 1 i 1 1 




e:iN,t,^y 


^^.^F. 1 , , 1 


1 1 1 1 i 1 1 




E1N,T,R,Y 


^QJ| J 1 1 J 1 1 i 1 1 1 r 1 1 1 1 1 1 1 J 1 


1 1 1 1 1 1 1 




e,n;t,r,y 


'PO'F 

1 1 1 1 i 1 1 1 1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 




1 . , . 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 i 1 ■ 1 1 



RBUF, EOJ, and FOF are the labels of subprograms within the user 
program. 



ACTIVATE CARD READER, PRINTER 



LABEL 



« OPERATION « 

10 16 







mp.F-N, 




TiKAn 1 1 . . . 


1 1 ■ 1 1 1 1 








PiRMTi 1 ■ 1 1 1 1 1 1 1 1 i 1 1 1 1 1 1 ' 1 1 


1 1 1 1 1 1 1 








1 1 1 1 1 1 1 1 1 1 I 1 1 1 1 1 1 1 1 1 1 1 1 



OPEN READ makes the file named READ available for sending input. 
OPEN PRNT makes the file named PRNT ready to receive output. 

CLEAR PRINTER LINE COUNTER TO ZERO 



LABEL 




OPERATIONS 


OPERAND 


1 




10 




16 


^Q^: . 1 . , 








CNTi^.a:?E;i^-h4. , . . . 


....)..' 




1 . . . 




1 1 1 1 1 1 ■ 1 1 1 1 1 1 1 1 I 1 1 1 1 1 1 1 



Moves zeros from storage areaTZER+4to the two-byte area defined as 
CNTR. 



BEGN 



FOF 



EXTRNS 



ENTRYS 
1 




OPEN READ 
OPEN PRINT 




CLEAR 
COUNTER 



115 
120 



125 
130 
135 



140 
145 



150 
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CLEAR PRINTER WORK AREA WITH SPACES 



LABEL 



ft OPERATION ft 
10 16 



OPERAND 



t I • 1 1 1 1 








PRWK„X'40', , 

1 1 ] 1 ' 1 1 ] l'^ 1 1 1 ! 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 , 1 








PRWK+,1 (131,) ,PRWK , 
1 1 1 1 1 1 1 1 1 1 1 i_j.-J ■ ' ■ ' 1 ■ ' ■ 


-1— i-l 1 1 1 1 




1 . . . 




_ 1 1 1 1 i 1 1 1 1 1 I 1 1 1 1 1 1 1 1 1 1 1 1 



MVI moves a space (blank) into the first byte of the PRWK area. 

MVC moves a space from the first byte of PRWK into the next 131 
positions. 

POSITION PAPER ON PRINTER 



LABEL 


ft 


OPERATION ft 


OPERAND 


1 




10 




16 


1 i 1 1 1 1 1 




qNTRI 




PRNT„SK,7 1 , , 


I 1 1 1 f 1 I 




1 , , , 




1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 



Positions printer paper to the top of page. 
SETUP PAGE NUMBER 



LABEL 



ft OPERATION ft 
10 16 



OPERAND 



1 I • 1 1 1 1 




PAGiH:^),,,qi1Ei^i,) 


1 1 1 1 1 1 1 


1 , . . 


f 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 



Adds one packed byte from the contents of an area defined as ONE to 
a one-byte area defined as PAGE and stores the result in the area defined 
as PAGE. 



INSERT SPACES BEFORE FIRST SIGNIFICANT DIGIT 



LABEL 


ft 


OPERATION ft 


OPERAND 


1 




10 




16 






w , 




i^siAi^-tT^? (?),,. ]yi5i^3 . . . . 1 . . . 


1 1 ■ 1 1 ■ 1 




1 . . . 




1 1 1 1 t 1 1 1 1 ! 1 1 1 1 1 1 1 1 1 1 1 1 1 



Moves the mask from MSK3 into an area defined as PSAL + 22(2). 
Note: (2) = 2 bytes. 



CLEAR 
PRINTER 
AREA 



ADVANCE TO 
HOME PAPER 
POSITION 



ADD 1 TO 
PAGE 



MOVE PAGE 
TO PRINTER 
WORK AREA 



155 
160 



165 



170 



175 
180 
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PREPARE PAGE NUMBER FOR PRINTING 



LABEL 


t 


OPERATIONS 


OPERAND 


1 




10 




16 


1 1 1 1 1 1 1 




^^ , , 




p,s,Ai^-ti^2,(2,),„PAqE; 


1 1 1 1 1 1 1 




1 . . . 




1 1 1 1 1 1 1 1 1 1 / 1 1 1 i 1 1 1 I 1 1 1 1 



Unpacks PAGE (page number) and places it in PSAL + 22 for a length 
of 2 bytes. 



PREPARE COLUMN HEADERS FOR PRINTING 



LABEL t OPERATION « OPERAND 
1 10 16 


1 1 1 1 1 1 1 






PEMP(15) ,HDR1 , , 


1 1 1 1 1 1 1 




]^yc , 


PS^^N(,8) ,HDR2 , , 

1 1 1 1 1 1 . 1 'l 1 1 1 -1 1 1 J L-l 1 1 1 1 1 1 


1 1 1 1 1 1 1 




MVC 

1 1 1 1 


PSAL(5),HDR3 

1 1 1 1 1 1 'i 'i iH 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 




1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 



Moves first header (HDRI-Employee Number) to PEMP (15 positions) 
Moves second header (HDR2-Salesman) to PSMN (8 positions) 
Moves third header (HDR3-Sales) to PSAL (5 positions) 
All headers defined above are subdivisions of PRWK. 

ADVANCE SINGLE LINE BEFORE PRINTING 



LABEL 




OPERATION t 


OPERAND 


1 




10 




16 


1 1 1 1 1 1 1 




qNTRI 




PRNT«SP,1 , , , 







1 • 1 1 




1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 



Advances single line before printing the header. 
PRINT COLUMN HEADINGS 



LABEL 




OPERATION t 


OPERAND 




1 




10 




16 




1 ■ 1 1 1 1 1 








]RW.„P.RW 1 .... 1 


1 1 1 1 ■ 1 1 


1 1 1 1 1 1 1 




1 . , . 




1 1 1 1 1 > 1 > 1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 



All data that has been placed in the PRWK reserved area HDR1, HDR2, 
HDR3, PAGE will be sent from PRWK to printer. 



MOVE HDRS 
TO PRINTER 
WORK AREA 



SPACE 1 




185 
190 
195 



200 



205 
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READ ANOTHER CARD 



LABEL 


t 


OPERATION « 


OPERAND 


1 




10 




16 


1 1 1 1 1 1 1 








READ, .CARD , , , 

* 1 1 1 '1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 




1 . , 1 




1 1 1 1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 1 1 1 1 1 



Reads a card into an area defined as CARD. 



CLEAR PRINTER WORK AREA 



LABEL « 

1 


OPERATION* OPERAND 
10 16 










P.HWIs,X',4j2f,'i , , . . 


1 1 1 1 1 1 1 




TO , 




P.HW1I. (.1.3,1,),, ,P,W. . . . 1 . . . 


1 1 1 1 1 1 1 




i . . . 




i 1 1 1 1 1 1 1 J 1 1 1 1 1 1 1 1 1 1 1 1 1 _i 



MVI places a space into first location of an area labelled PRWK. 

MVC moves the space from PRWK + 1 into the next 131 consecutive 
locations. 



SET UP PRINT AREA WITH DATA 



LABEL « OPERATION « OPERAKD 
I 10 16 


1 1 L..1. .I . J. 1 




MVC . 




P.RWKi-H3^5(,6,)i„W,lSi , , . . I . . . 


1 1 1 1 1 1 1 








P.RWK-h5.6.Cl,5),„SmN. ....... 


. • 1 1 1 ■ • 




1 1 1 1 




1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 I 1 



Moves EMPN to PRWK area (Employee number) 
Moves SMAN to PRWK area (Salesman's Name) 

STORE EMPLOYEE NUMBER FOR LATER COMPARISON 



LABEL 




OPERATION « 


OPERAND 


1 




10 




16 


1 1 1 1 1 .1.-1 




TO , 




s,Ayi;C6,),,,wj^ . , , . , , 


■ 111(11 




1 . . . 




1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 



Moves EMPN (employee number) to a storage area called SAVE. 



READ A 
CARD 




MAN 



CLEAR 
PRINTER AREA 



MOVE 
EMPLOYEE 
NUMBER & 
NAME TO 

PRWK 



MOVE 
EMPLOYEE 
NUMBER 
TO SAVE 



T 



210 



215 
220 



225 
230 



235 
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PACK SALE FOR SUBSEQUENT ADDITION 



LABEL « OPERATIONS 

1 10 16 



OPERAND 





PjACK 


PAKS(,4) , SALE (6), , 

1 1 ■ 1 1 1 1 ' 1 1 T^i 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 


1 . , , 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 



Packs the six bytes of information located at SALE into the four bytes 
reserved for an area labelled PAKS. 



ACCUMULATE TOTALS FOR EACH SALESMAN 



LABEL t OPERATIONS 

1 10 16 



OPERAND 



1 1 1 1 1 1 1 








T.SAI.(i6,).,.P,A,I^S,(.4.) , . . . 


1 1 1 1 1 1 1 




1 , ■ . 




1 1 1 1 1 1 1 1 1 f 1 1 1 1 1 1 1 1 1 1 1 1 1 



Adds the packed information found in PAKS (four bytes) to the six bytes 
located at TSAL. 



READ ANOTHER CARD 



LABEL 


t 


OPERATION t 


OPERAND 


1 




10 




16 










I^AD.„CMD. , . , . , , . , . 


1 1 1 1 1 1 1 




1 . . . 




1 1 1 1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 1 1 1 1 1 



Reads a card and places data into, area defined as CARD. 



COMPARE EMPLOYEE NUMBERS 



LABEL 




OPERATIONS 


OPERAND 


1 




10 




16 


1 1 1 1 1 1 1 








sAVE.,^.pm 1 ............ , 


1 1 > 1 1 1 1 




till 




1 J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 



Compares information stored in EMPN with the information stored in 
SAVE. 



PACK SALE 
TO A WORK 
AREA 



ADD SALE 
(PACKED) 
TO TOTAL 
SALE 



READ A 
CARD 



240 



245 



250 




BRANCH BACK TO MIN IF SAME EMPLOYEE; ADVANCE TO PRINT 
TOTAL OTHERWISE 



LABEL 


t 


OPERATIONS 


OPERAND 


1 




10 




16 


1 1 1 1 1 1 1 




^<;,, 




^ /.M^^f .... 1 ............ , 


1 1 1 1 1 1 1 




1 . . . 




1 1 1 1 1 1 I 1 1 1 ■ 1 1 1 1 1 1 1 1 1 1 1 1 



Branches if equal to the subroutine labelled MIN. If not equal, processes 
next instruction. 
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ACCUMULATE TOTAL SALES 



LABEL 




OPERATION « 


OPERAND 


1 




10 




16 


1 1 1 1 1 1 1 








FTOT,,TSAL , , , 

1 1 1 1 '1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ^ 1 1 


1 1 1 1 1 1 1 




1 . . 1 




1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 



Adds (packed) information stored in TSAL to information stored in FTOT 
and places result back in FTOT. 



STRUCTURE PRINTER WORK AREA FOR TSAL (SALESMAN'S 
TOTAL SALES) 



LABEL 


t 


OPERATION « 


OPERAND 


1 




10 




16 


1 1 > J 1 1 1 




]v|yc ^ 




PRWK+8^ar(16,) ,MSKil 

1 1 . 1 1 1*^1 1 1 1 1 'l 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 




1 . . . 




1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 



Moves the mask located at MSK1 to PRWK. 

PREPARE TOTAL SALES FOR ONE EMPLOYEE FOR PRINTING 



LABEL 


t 


OPERATIONS 


OPERAND 


1 




10 




16 


1 1 1 1 1 1 1 




BD , . 




I>RWK-lra0(16i).„a:SAl4 


1 1 1 «... 1 .1.1 . 




t , . 1 




1 1 1 1 1 I I 1 1 1 1 1 1 1 1 1 1 1 I 1 1 1 1 



Unpacks information found in location labelled TSAL and places it in 
PRWK + 80 (16 bytes). 



PRINT 



LABEL 


t 


OPERATIONS 


OPERAND 


1 




10 




16 


....!., 








ERNT^PBWK 1 .... 1 .... 1 . 


1 1 1 1 1 1 1 




1 . . 




> > 1 i 1 . . 1 1 1 1 1 1 1 1 I 1 1 1. _L_i — 1 — 1 



All data placed in printer work area (PRWK) will be sent to PRNT and 
printed. 



ADD A ONE TO LINE COUNTER 



LABEL 




OPERATION t 


OPERAND 


1 




10 




16 


1 1 1 1 1 1 1 




^P, . , 










1 . , . 




1 1 1 1 1 1 > 1 1 i > 1 1 > 1 1 ■ 1 . 1 1 ■ 1 



Adds (packed) information found in location labelled ONE to information 
found at location labelled CNTR. 



ADD TOTAL 
SALES TO 
FINAL TOTAL 



i 



MOVE MASK, 
THEN TOTAL 
SALES TO 
PRINTER 
WORK AREA 




ADD 1 TO 
COUNTER 



265 



270 
275 



280 



285 
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COMPARE FOR 25 LINES (END OF PAGE) 



LABEL 


t 


OPERATION « 


OPERAND 


1 




10 




16 


1 1 1 1 1 1 1 








CNTR,i5:n;yE; i i , 


1 1 1 1 1 1 1 




1 . . . 




1 1 1 r 1 1 1 f 1 1 1 1 1 1 1 1 1 1 1 1 r 1 1 



Compares (packed) data located in area labelled FIVE with the data labelled 
CNTR. 



BRANCH TO FILE OVERFLOW ROUTINE IF EQUAL (SKIP TO NEXT 
PAGE); IF NOT EQUAL, FALL THRU 



LABEL 


t 


OPERATION « 


OPERAND 


1 




10 




16 


1 1 1 1 1 1 1 




, , 




8, #,I!QP| , , , . 1 , , , , 1 , , , , 1 , , , 


1 1 ■ 1 1 1 1 




1 . . 1 




1 1 1 1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 r 1 1 1 1 



If equal (25 lines have been printed), branches to a subroutine labelled 
FOF. 



CLEAR OUT OLD DATA, PREPARE NEW DATA FOR PRINTING 



LABEL 



« OPERATIONS 
10 16 



OPERAND 



1 1 i 1 1 1 1 




m.Q . 




T.SAI^ (i6,),„T,giEiR , , 1 , , , , 1 , , 


1 1 1 1 1 1 1 








3,5.,.]^N. , . . 1 . . , , 1 , , , . 1 . , 


1 1 1 1 1 1 1 




1 1 . ■ 




1 1 1 1 1 1 1 1 1 1 t 1 1 1 1 1 1 1 1 i 1 1 



Moves characters found in a location labelled TZER to a location labelled 
TSAL (six positions) then branches unconditionally to subroutine labelled 
MAN. 




CLEAR TOTAL 
SALES TO 
ZEROS 




300 
305 



Generally, at this point a routine testing for a /* card would be written. However, the System's IOCS does this for 
us and the step was therefore omitted. 



ADD LAST SALESMAN'S TOTAL TO FINAL TOTAL 



LABEL 




OPERATION « 


OPERAND 


1 




10 




16 


E.OJ. .... 




M>. . . 




F.T.QT.(.a).,.T.SiAL(.6.), 


1 1 1 1 1 1 1 




1 . . . 




1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ■ 1 1 1 1 



Adds (packed) Total Sales to Final Total and places the result back in 
FTOT. 




ADD TOTAL 

SALE TO 
FINAL SALE 



310 



3-14 



SET FORMAT OF PRINTER WORK AREA 



LABEL t OPERATION is 

1 10 16 



OPERAND 



1 1 • 1 i 1 1 








p.nm-^mixei),,Ms:^i ....... 


1 1 1 1 1 1 1 




1 . . . 




... 1 1 1 .■ 1 1 1 1 ■■ 1 1 1 1 1 1 1 1 1 



Move MSK1 to printer work area (PRWK + 80, 16 positions). 
PLACE TOTAL SALE FOR LAST SALESMAN IN PRWK AREA 



LABEL 




OPERATION D 


OPERAND 


1 




10 




1« 


1 1 1 1 1 1 1 




HD , , 






1 1 1 1 1 J 1 




1 1 1 1 




1 J 1 1 1 1 I i 1 i 1 1 1 1 1 L > L 1 1 1 1 1 



Unpacks TSAL and places its contents in PRWK + 80. 
PRINT TOTAL SALES LINE 



LABEL 




OPERATIONS 


OPERAND 


1 




10 




16 


1 1 I 1 i 1 1 










1 1 1 1 1 1 1 




1 ., . . 




1 i 1 1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 i 1 1 1 1 



All data placed in PRWK is sent to PRNT and printed. 



CLEAR PRINTER WORK AREA WITH SPACES 



LABEL « OPERATIONS OPERAND 
1 10 16 


1 1 1 1 1 1 1 






PRWK,,X'40', , 


1 1 1 1 1 1 1 




i^[yc , 


PRWK-^1^13V.,PW...,.., 


1 1 1 1 1 1 1 




1 1 ,1 1 


1 1 1 1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 1 i 1 1 1 



Moves a space to the first position of Printer Work Area (PRWK). 

Moves a space from first position of Printer Work area to the next 131 
consecutive locations. 



MOVE MASK, 
THEN TOTAL 
SALE TO 
PRINTER 
WORK AREA 



CLEAR 
PRINTER 
WORK AREA 
TO ZEROS 



315 
320 




325 



330 
335 



3-15 



FORMAT PRINTER WORK AREA AND PLACE FINAL TOTAL IN 
PRWK 



LABEL ft OPERATION « 

1 10 16 



OPERAND 



1 1 1 1 1 1 1 




mc . 




ERWK-h7.5(.2L).,.MaK2. . . . i . . . 


. ,1 1 1 1 1 1 1 








I>RWK-ti75C21).,.P:T.QT. . . . i . . . 


■ 1 1 1 1 1 1 




1 1 1 1 




1 1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 



Moves information from MSK2 to PRWK + 75. Unpacks FTOT and places 
information in PRWK + 75 (21 positions). Moves In final total to occupy 
positions specified by the mask. 



MOVE HEADER FOR FINAL TOTAL INTO PRINTER WORK AREA 



LABEL 


ft 


OPERATION ft 


OPERAND 


1 




10 




16 


1 1 1 1 1 1 I j 






I>RWKHT55(ll),,mR4 ,,,,,,, 


1 1 1 1 1 1 1 1 


till 




1 1 1 1 1 1 I 1 1 1 1 J 1 1 1 1 J 1 1 1 1 1 1 



Moves HDR4 (final total) into PRWK + 56. 



ADVANCE SINGLE LINE 



LABEL ft OPERATION* 

10 16 



OPERAND 



1 1 1 1 1 1 1 








^^'^iS^f.i 1 .... 1 .... 1 . . 


1 1 1 1 t 1 1 




1 . . , 




1 1 1 1 1 1 1 1 .1 1 . 1 1 1 1 ... 1 1 . 1 



Causes the printer to advance one line before printing next line. 



PRINT 



LABEL 


ft 


OPERATION ft 


OPERAND 


1 




10 




16 


1 1 ■ 1 1 1 . 








P.RNT.„P.RWK I . . . . . . 


1 • 1 1 1 1 1 




1 1 1 1 




1 1 I 1 1 1 . i 1 1 1 1 1 . 1 . 1 1 . 1 1 . . 



All data placed in PRWK sent to the printer. 



MOVE IN 
MASK, THEN 
FINAL TOTAL 
TO PRINTER 
WORK AREA 



T 



MOVE IN 
FINAL TOTAL' 

(HEADER) 
TO PRINTER 
WORK AREA 



i 



SPACE 1 
1 




340 
345 



350 



355 



360 



3-16 



CLEAR PRINTER WORK AREA WITH SPACES 



LABEL t OPERATION « OPERAND 
1 10 16 






mx , 






1 1 1 1 1 1 1 








i^RWB;-tTi.Ci,3.i^),,.i^Hv^K; 






,1 ,j 1, ,i, . 




i 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 



Moves a blank into first position of the printer work area. 
Moves blanks into the next 131 positions. 

MOVE HEADER TO PRINTER WORK AREA 



LABEL « OPERATION* 

1 10 16 



OPERAND 



1 1 1 1 1 1 1 




m.Q . 




P.RWI^-h5ii(.^9,).,.m:!ll5. ....... 


1 1 1 1 1 1 1 




1 . . . 




1 1 1 1 i 1 1 i_i__L J 1 1 1 1 1 1 1 1 1 1 1 1 



Moves HDR5 (End of report for fiscal year) into PRWK + 51 (29 positions). 



PRINT 



LABEL 


ft 


OPERATION ft 


OPERAND 




1 




10 




16 




1 1 • 1 1 1 1 








I>RN[T.^P.RWK 1 ..... . 




1 1 1 i i 1 1 




1 1 1 1 




I 1__Lj_ -1 1 1 1 1 1 1 1 1 1 1 1 1 1 ■ 1 1 



All data placed in PRWK sent to PRNT and printed. 
DEALLOCATE READER AND PRINTER 



LABEL ft OPERATION ft OPERAND 
I 10 16 


1 1 i 1 1 1 1 




qLQSl 




1 .... 1 ... 1 . . . 







qLOSE 




PRNT , , , , 


' ■ 








1 , 


1 1 > 1 1 1 1 




1 1 1 1 




1 . 1 1 1 1 1 1 1 i I 1 1 1 1 1 1 1 . t I 1 1 



Informs the system that it no longer needs reader and printer, closes READ 
and PRNT file and displays IFFF on the console to let operator know 
that program has terminated normally. 



CLEAR 
PRINTER 
WORK AREA 



1 



MOVE IN "END 
OF FISCAL 

YEAR" 
(HEADER) 

1 



PRINT 



CLOSE READ 
CLOSE PRINT 



365 
370 



375 



380 



385 
390 



565 



Review the coding forms and flowchart found on the next few pages then complete the Diagnostic Exercise found 
on the page following the flowchart. 



3-17 



U Nl VAC 

ASSEMBLER CODINB FOHM 

SERIES 

pRor.PAM MACRO CALL CARDS programmer date page of pages 



LABEL t OPERATION « OPERAND « COMMENTS 

1 10 U 72 80 







E|T,F,GR 




EaEA=?EQJ.,, 1 , , , , 1 , , , , 1 1 . , 1 I . . , , 1 


X 


, , 1 r . < , 


. ■ . , 1 , . 




till 




XOAl,=^RBUF,,i , , . , 1 , . , , 1 , , , . t . . . . 1 . . . . 1 . . . . 1 , . . . 1 , , , . 1 , , , , 1 


X 


, , 1 , , , . 


, , 




1 . . 1 




I,TBX..=iTaRD,i 1 . , , , 1 1 .... 1 




. . 1 . L . . 


. . . , 1 , , 




1 1 1 1 




MQElE,=iT,RAN,S, i .... i i i .... , 




, , 1 , , . . 






1 1 1 1 




1 .... 1 .... 1 .... 1 .... 1 .... 1 .... 1 .... 1 .... 1 1 







P.W. 1 . , 




nr,F.p,R 




BICS,Z.=il.3,2,,. 1 . . . 1 .... 1 ... r .... 1 1 


X 


, , 1 . . , , 


. . . , 1 , , 




1 1 . 1 




qN.T.I,=iYp.S.„ , , I ... I i 1 


X 








1 , , 1 




P,RAD=^2,„ , . 1 . . . 1 .... 1 1 ......... 1 1 1 .... 1 


K 


,,(,,,, 


v; ■ . 1 . ■ ' 
. . . 1 1 , , 




rv . ; 
1 1 1 1 




r.no,v.-iF,Q,F„. 1 1 ■ ... 1 1 .... 1 1 . . . . 1 . . . . 1 . . . . 1 .■ . -. ri 

F,O^J.T,=i6,3 1 , , , , I , . . . 1 . . . . 1 . , . , 1 . . 1 , . , , 1 


K 


"'77"r"."".'TT" 

, , 1 , , , , 










. 1 1 . 1 1 1 t . 1 .... 1 1 ..) 1 1 1 1 1 1 . 1 1 1 1 1 i . 1 1 1 1 .. 1 ... 1 1 1 ... 1 .... 1 




, , 1 , . . , 






1 1 1 1 




1 1 1 1 1 1 .. 1 1 1 . 1 1 1 1 1 .. 1 . 1 1 1 1 1 ... 1 . 1 1 1 1 1 1 . 1 1 1 1 . i 1 . 1 1 1 1 .... 1 











i • 1 1 




1 1 1 1 1 1 . 1 . 1 1 1 1 . 1 r ... 1 .. 1 . 1 .... 1 ... 1 1 . 1 .. 1 . 1 1 1 1 1 1 . 1 1 1 1 < 1 1 




,,!,,,, 


, 




1 1 1 1 




1 1 I 1 1 .. 1 . 1 1 1 1 . 1 . 1 1 1 1 ... 1 1 . 1 t i 1 1 1 1 1 1 1 1 1 . 1 1 1 1 1 1 1 1 1 1 i 1 . 1 1 1 




1 . 1 . . . . 






) 1 1 1 




J J. .L _j J_ L Jill 1_ 1 1 1 1 1 1 I I 1 i 1 1 1 t 1 1 1 1 1 1 1 1 1 1 t 1 1 1 I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 




, . 1 , . . . 






1 , , , 




1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 f 1 1 1 1 ... 1 1 . 1 t [ 1 1 . 1 1 1 1 .. 1 1 1 1 t 1 




1 > 1 , 1 . 1 






1 , , , 




1 1 1 1 1 1 1 1 1 1 1 1 1 f 1 I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 i 1 1 i ! 1 1 1 1 1 1 1 1 1 1 1 1 1 1 










1 , . , 




1 1 1 1 1 1 . 1 1 1 1 1 1 1 1 t 1 1 1 1 1 J 1 1 1 1 1 1 1 1 1 . 1 1 1 1 1 . 1 1 1 . 1 1 1 1 1 1 1 1 1 1 1 1 1 




, , 






1 1 1 1 




.1-1. \ 1 1 1 1 1 1 1 1,.I.,I...,J .L.-L-l. 1 1 1 .J.._L_L 1. t. 1 ..J...i..L._l 1 I ..J .I...J..1. 1 i...l...J.. X_L!.I 1 1 1 .1 .1 . J 1 1 1 1 




..(.... 






1 1 , 1 




I I 1 1.1 1.1 1 1 1 _1 t I 1. 1 I I 1 1 1 1 1 1. .L 1 1 1 1 1 I ..I 1 1 1 1 .L_.l_, 1.1 1_1_1 1 1 .1. .1..1 J .1 1 1 J 










till 




.. 1 . 1 L 1 1 1 1 .. 1 . 1 . I 1 1 1 .. 1 1 1 . 1 1 1 1 .... 1 .... 1 ... 1 1 .... 1 1 1 1 1 1 










1 1 1 1 




.. i-L 1 1 1 1 1 1 1 1 L.J_I 1. .1. ..I.J—1— I i , 1 ..1 ,-1 1 1 1 .1 .1. ,J-J-J_I 1 1 J .L...1— 1. 1 .l...t...k....l— L-l L. 1..X-1— J_i 1 ..L...L..i 










1 ■ . . 




1 [ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 1 1 1 1 1 1 [ 1 ) .1 I 1 I 1 . 1 ..1.1 1 I 1 1 1 1 1 1 1 1 










1 1 1 1 




■ 1 1 1 1 1 1 1 1 1 1 1 1 1 I..L 1 1 1 1 ..J—L.. 1 1 1 1 L-1.-L 1 1 1 1. 1. 1 1 1 1 1 .1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 










1 1 1 1 




1 1..L l_L_L 1 1 1 1 1 J__l 1 1 1,1 1 ,1 1 1 i l l, 1 1 1 l.l Jill 1 L_i_ 1 I i._l__l__l_l 1111 l._l 1 1 1 1 










1 1 1 1 




1 1 1 1 1 1 1 . 1 1 1 1 . 1 1 J 1 1 1 1 1 ... 1 1 1 1 . 1 1 1 1 . 1 1 1 1 1 I 1 . 1 1 1 1 1 1 1 1 1 1 1 1 1 










1 1 1 1 




1 1 . 1 1 1 1 1 1 1 1 1 1 1 1 . 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 . . 1 1 1 1 1 1 1. 










1 1 1 1 








. 1 1 L.l ._L_J 1 






1 1 1 1 




1 1 1 1 1 i 1 1 t 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 I 1 1 1 1 1 1 1 1 1 1 1 1 1. 1 1 1 1 1 1 1 1 1 1 1 L.. 




1 1 1 1 1 1 1 






1 1 1 1 




1 1 1 1 1 t 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 t 1 1 1 1 1 1 1 t 1 1 1 1 1 1 1 1 t 1 1 1 1 1 1 1 1 ■ 1 1 1 1 1 1 1 







UD1 -1 548 



SPERWi^UNIVAC 

USER PROGRAM 



PROGRAM. 



ASSEMBLER CODING FORM 

PROGRAMMER 



UNI VAC 



DATE. 



PAGE. 



_ OF 



1 



.PAGES 



LABEL t OPERATIOHIi OPERAND « COMMENTS 
1 10 16 72 80 


1 1 1 1 1 1 1 






■ 1 1 1 1 


1 1 1 1 1 1 1 


qs,i;N,G 




, , 1 , IpfS 


t 1 1 t 1 1 ) . 




1 'A 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 < 1 1 1 1 1 1 1 i 1 1 ( 1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 1 1 


. , 1 , iiiaf 


1 1 1 1 1 1 1 




Tjiri TV T-\ 

READ 1 ,,,, 1 1 1 1 1 1 1 1 1 , 1 .. 1 1 1 1 1 1 , 1 1 1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 . 1 1 1 , 1 1 1 1 


, , 1 , IX^ 


-i- J 1 I 1 J 1 


TTi vrn TIM 


PRNT 1 1 1 1 1 1 1 1 1 , 1 
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 t 1 1 1 1 1 1 t 1 1 1 1 1 1 1 1 1 1 1' 1 1 1 1 1 1 1 1 1 1 1 I i 




1 1 1 r 1 I 1 


" Cnk'/lKlb'v ' 


KBUr^ 1 1 1 1 1 1 1 . 1 1 1 1 1 1 1 t 1 1 1 1 1 1 1 1 1 1 , 1 ■ 1 1 1 . 1 1 1 1 1 1 1 1 1 , 1 , I 1 1 




1 I 1 1 1 1 J 




EO J , 1 , , , , 1 1 , , , , 1 , , , , 1 , , , , 1 , , , 1 , , , , 1 , , , . 1 , , , , 1 

t 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ) 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 t i 1 1 1 1 1 


, , 1 , 

I 1 1 1 J-kJU 








" . . 1 . 135 






-S^wgV' ' ' Q-^^tr . > ^mrA D> .c^fe.!) . i i . , , , i _ 


, , i , UQf 


.1.1.1 I 1 J 


- i 1 1 1 ,. 


p wjr, ... 1 — 1 .... t — f t — 1 1 — 1 


. . 1 , 145 


F,QF, , 1 , , 




QN,T.R„T,Zf:,R,+,4, , , , 1 . , , , 1 , , , . , 1 . . . . t , , , , 1 , , , , i 


, M , 15ff 


1 1 1 1 1 1 1 - 


TO , 


P.W„iX,',4i3r,', 1 .... 1 .... 1 .... 1 


, , 1 , 155 


III 1 1 1 1 


tun 7/^ 
^P, 1 


PRWK+,1 (131|) .,PR^JC 1 .... 1 .... 1 .... 1 1 .... 1 .... 1 1 


, , 1 , 160 


1 1 1 1 ) 1 1 




PRNT /,dK » / I I 1 1 1 . 1 1 1 1 

I'l i. ri 1' 1 1 ,1 I. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 I 1 


, , 1 , 


1 1 1 1 1 1 1 - 


Ap 


^^P'mW ,ryF*pS^-J . 1 .... 1 1 .... 1 1 1 , ... 1 .... 1 .... 1 ... 1 1 


1 1 1 1 170 


1 1 1 1 1 1 1 




P.SAI..+i22,f2,)i.MSK3i i . . . . i . i , . , . i 


-III. 175 


1 1 1 1. 1. 1 1 


m i , 


P.SAL.+i2.2.( 2.) I.PAGE i , , , , i , , i , , , , i , , , , i 


- 1 1 1 1 180 


1 1 r 1 i 1 1 




PEMP.(a.5,),.HDRl. .1 , . . 1 . . . . 1 . , . . i . . . . 1 1 


1 1 1 1 1 85 


1 1 1 1 1 1 1 


^c. , 


PiSm(i8.).,HDil2 1 1 


, , 1 1 


1 .1. .1., 1 111 




P3AJ..(i5,).,Hr)R3 , , . . . , , 


, . 1 , 195 


1 I 1 1 f 1 1 


CN.T.RJ. 


PJ^J^,T.,3P.,X 1 .... 1 


. , 1 . 2£f£f 




pm . 


Pm.rP^W. 1 


.... ?«f5 


. 1 . , 




-nE^.,PAnD 1 .... 1 .... 1 .... 1 .... 1 .... 1 .... 1 .... 1 ,. . rrrrrr- 

p,w„?c,',40^;, ,,,,,,,,,!,.,, 1 ,,,, 1 ,,,, 1 ,,,, 1 1 


, , 1 , 216 


-X-L.t. J ..L .L-l_ ., 




PJ^WJC,+.l,(J.,31^„PRWiK, , , , 1 , . , , 1 , , , , 1 , , , , 1 , , , , 1 , , , , 1 , , , , 1 


, , 1 , 220 


1 1 1 1 1 1 1 


1 ■ . 1 




1 1 1 1 1 1 1 


1 1 1 1 111 


1 i 1 1 




1 1 1 1 1 1 1 


1 1 1 1 1 1 1 


1 1 1 1 




1 1 1 1 1 1 1 


1 1 1 1 1 1 1 


1 1 1 1 


1 1 1 1 1 1 1 1 1 1 I 1 1 1 . 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 . 1 1 1 1 1 1 1 . 1 I 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 


1 1 1 1 1 1 1 . 


1 1 1 1 


■ ■ ■ ■ 1 ■ ■ 1 1 1 ■ 1 ■ ■ 1 ' ■ 1 ■ 1 ■ 1 ■ ■ 1 ' ■ ' ■ J ■ 1 ' ■ 1 ' ■ ' ' 1 ' ■ ■ ■ ' ■ ' ■ 1 1 ' ' 1 1 1 ' 





CO 
CO 
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U N I VAC 

SI^'ERxV^|^UNI\yAC ASSEMBLER COOINQ FORM .'SEEB 

^ E til E S 

ppor.PAM USER PROGRAM programmer date page of pages 



LABEL « OPERATION « OPERAND % COMMENTS 

I 10 16 72 80 



. .1 1 t ,1 1. i 1 




P.RW,K-ti3,5,(,6,)i,EMPN| . , . , , t .... i .... i 


I., .t . 1. . r* n r 


1 1 1 1 t 1 1 




PRWK+,56 (1.5|) ,SMAN . i. . , . i ... . .i , 


. . 1 1 rr'r 


.11)1 1 1 1 


i^yc, , 


SAyE.(|6,),,EMPN ,. 1 .... 1 ... 1 .... 1 .... 1 . 1 .1 

it 1 1*1 ~i' 1 rr~r 'i~ r 1 1 1 1 1 1 f 1 t 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 . 1 ( 1 f 1 1 1 1 1 1 1 1 1 1 . 1 1 


.til rf^r" 


...tn ,.1 1 — — 


n IT 


PAKS.(|4,),.SAL,E,(.6), . , , . , , , , , , , 


1 247 




^P. 1 . 


TSi\It(i6,),,PA,KS.(4), I .... I .... 1 .... 1 .... 1 .............. 1 


, 245 




qET 


READ„CARD ,,,,,,,,,, 
1 1 1 I'l 1 1 1 1 1 1 . 1 1 1 1 ... 1 . 1 1 . 1 . 1 1 1 1 . 1 . 1 1 .. 1 i 1 .... 1 1 . i . 1 .... 1 


- " ' ^^jy 

1 1 1 1 1 1 A 


_L_J 1 — 1 — 1 — 1 — 1 




SAVE„EMPN 1 , 


1 255 

- 1 1 1 1 1 1 J , 


. 1 1 1 .1 1 I.I. 


1 1 1 1 


8.,Mi,N| . , , , 1 , , , 1 . . , , 1 , . . . 1 . . . . 1 . . , , 1 , ; . 1 . , , , 1 , , . , 1 . . ,1 

I'l T 1 1 1 1 1 1 1 1 1 1 1 1 i i 1 1 1 1 1 1 . 1 . 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


, 1 , 2,6(3^ 

1 1 1 1 T" r r 


1 1 1 1 1 1 1 


Till 


F,T,0,T,|T,S,Mi , I .... 1 . . . . 1 . . . . 1 . . , . 1 , , , . 1 


1 , 265 

1 1 1 1 r 1 1 






P^WK+,8p.(,l,6,),,,l^S,I^l, , . , 1 , I 


, . 1 . ?7<i> 


. 1 1 1 1 1. 1 .1 




PRWK+|8j?,(16|),,TSi\L , , , . i . , , . i , , 


- " ' S^S 


. 1 1 1 1 1 1 1 


P,UT 


PRNT,,PRWK J , , , ,1 , 1 1 1 


- " ' W& 


1 1 1 1 III 


, . 


CNTR,,ONE , , , , 1 .... 1 


- "I'M 

■ 1 1 1 1 1 1 1 . 


.1 1 1 1 1 11.. 


till 


CNTR„FIVE, , . , , , , , , , , , . , . , I . . . . 1 , . . , 1 , . . . J . , , , 1 , . , , 1 . , . , 1 

1 1 1 I'l 1 1 1 1 1 1 1 1 1 1 1 t 1 1 1 1 1 1 r 1 1 1 1 1 1 1 1 J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


, , I , 2?!3^ 

1 1 1 1 r 1 






8 , FQF| , , , , 1 . . , . 1 , . , , 1 , , , . 1 , , , , 1 , . , , 1 , . , , 1 . . , , 1 , , , , 1 . , , , 1 


, , 1 , 


. 1 1 1 1 1 11 


MVC 


TSAL(,6)TZE.R i .... i i .... 1 .... i .... i .... I 


- " ' m 






15,MAN, 1 , , , . 1 , . . . 1 1 . 1 . . , , 1 


- :\:m 


i6d'\" - 

1 1 1 1 1 1 1 






- " ' ^i^ 


1 1 1 1 1 1 ■ 




-p'riVylK'+»V('l'b);'^^^^ 

1 1 1 t 1 r 1 1 . 1 1 1 1 t 1 1 . 1 1 1 1 1 1 1 1 1 1 1 i 1 1 i 1 1 1 1 1 1 1 1 . 1 1 1 1 1 1 1 1 1 1 1 1 . I 


- ; ; ; : 


1 1 1 1 1^1^ 3 


EQ , 1 


P.RWK4i8J2fvCX6i) ,,T,SAiL. , . . i i , . , i , , , , i , , , , i 


. . 1 , 326 


. 1 1 1 1 H 1 1 


'BUI! . 


PR1SIT.,|P,RWK 1 . . > 1 .... 1 .... I .... 1 .... 1 ... L 1^^ 1 . . I . L 


, , 1 , 325 




mx , 


p.RW„}j;'.4.gf.', , , . . , 1 .... 1 ... 1 .... 1 


, •, 1 , 33?f 






P.WHll,{,l,3,l,),„P,W, 1 . . . 1 , . . , t 1 


, , 1 , 






P,W+,7,5,(,2,l,),,,]y^S,I^2, ,,,,,,,,,,,,.) , 


, , 1 , 


1 1 1 1 1 1 1 


^^' 






M 1 , 


1 i 1 1 1 1 t 


1 1 




1 1 1 1 1 1 1 1 1 1 1 . 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 1 i 1 1 1 1 1 


1 1 i 1 . 1 1 


1 1 1 1 1 1 J 






1 1 1 1 1 1 1 1 1 1 1 < 1 1 1 1 1 1 1 1 1 1 1 . 1 1 1 t 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 t 1 1 1 1 1 1 1 1 1. 


1 1 1 1 1 1 1 


1 1 1 1 1 1 1 


1 1 




1 I 1 1 1 1 1 1 1 1 . t .. 1 1 ... 1 1 . 1 . 1 .... i 1 . 1 1 1 1 .. 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 i_ 


i. I. 1 J .1 1 1 


1 1 1 1 1 1 1 






1 1 1 1 1 1 1 1 1 1 1 1 1 . 1 1 1 1 1 1 1 1 1 « 1 1 1 1 1 1 1 1 1 1 1 1 1 i 1 1 1 1 1 ( 1 1 1 t .1 1 1 1 1 1 L . 


1 1 1 1 1 1 1 


- i 1-L-l 1 1 1 


i 1 1 1 
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Figure 3-3 Marketing Sales Report Flowchart 
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DIAGNOSTIC EXERCISE 



WORKSESSiON - MARKETING SALES REPORT PROBLEM 

Circle answers below, then check with the correct answer on the next page. 

The following questions refer to the flowchart and the following constant values are assumed: 

PAGE = 0 

COUNTER = 0 



1. When is the counter incremented? 



a. After each line of data is printed 

b. After each page of data is printed 

c. Before the first line of data is printed 

d. Before each heading line is printed 

2. When is the printer work area cleared? (Select two 
correct responses.) 

a. Before each line of data is moved into PRWK 

b. Before each line of data is printed 

c. Before each heading line is printed 

d. Before each heading line is moved into PRWK 

3. When does page change occur? 

a. After 5 lines of printing 

b. After 25 lines of printing 

c. After 65 lines of printing 

d. After 26 lines of printing 

4. When is the FOF routine bypassed? 

a. When CNTR = FIVE(25) 

b. When CNTR ^ FIVE(25) 



5. When is the EOJ routine executed? 

a. After /* is READ 

b. After the last card is READ 

c. After a blank card is READ 

6. What is the value of counter after 30 lines of 
has been printed? 



2 
5 

29 

0 

31 



Which block in the flowchart represents the 
function that starts the header subroutine? 

a. Block 150 

b. Block 165 

c. Block 185 

d. Block 215 
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DIAGNOSTIC EXERCISE ANSWERS 



OPERATING PROCEDURES 



INTRODUCTION 

Now that you have completed the talk-thru and the diagnostic exercise for the Marketing Sales Report Program, the 
operating procedures presented in this book will simulate the processing of that Marketing Sales Report program. The 
Univac-supplied programs used by the programmer at assembly time will be described. How to build an input "job 
stream" will be illustrated and the operating procedure required to obtain the desired output from the computer will 
be simulated. To present the material in its simplest form, this section will include only the basic operating procedures. 
The back of this section contains a printout listing the complete coding for the Marketing Sales Report Program, 
Linker Map and the output from a sample production run. 

When the program coding is completed, the information on the coding forms is punched on cards thereby producing 
two decks of cards: the DTF statement cards and the main source program cards. The DTF cards are processed by 
a Preassembly Macro Pass program provided by Univac. The output of the Preassembly Macro Pass program is combined 
with the user Source Code program and processed by the Assembler Program. The output of the Assembler program 
is processed by the Linker Program. 



Preassembly Macro Pass Program 

The Preassembly Macro Pass Program generates the source code for the DTF statements which define the input/output 
devices the user accesses at program run time. The output of the Preassembly Macro Pass, is combined with the user's 
source code program and assembled. 

Assembler Program 

The Two-Pass Assembler converts source code programs (user programs) to machine code (object programs). The assembler 
produces an object card deck and a printout that lists the source code and the object code generated by the source 
deck. The output of the assembler is the input to the Linker Program. 

Linker Program 

The purpose of the Linker Program is to combine the object programs (card reader, printer, user program) into a 
single object program. The output is an executable object program. 



3-27 



PREASSEMBLY MACRO PASS GENERATOR PROGRAM DATA PREPARATION 

The Preassembly Macro Pass program generates the IOCS source code for the peripheral devices accessed by the user 
program. The input flow is set up as follows: 



COL 10 



COL 10 



COL I 




SYSTEM WILL HALT AND 
DISPLAY IFFF. 



— DTP'S 



USING STATEMENTS PROGRAM 
OCCUPIES 4K. 



SENTINEL CARD (*/) 

SYSTEM HALTS, DISPLAYS 01FFF; DEPRESS 
START 

UNIVAC SUPPLIED PERIPHERAL SUPPORT 
LIBRARIES 



COL to 



USED WITH 8K OR 12K MEMORY SYSTEM' 



UNIVAC SUPPLIED SOFTWARE PROGRAM 



Figure 3—4 Preassembly Input Stream 



Contains the decimal number equal to the highest available memory address beginning in column 16 (8191 for 
8K - 12,287 for 12K system). If "CTL" is omitted 16,383 {16K) will be assumed. 
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PREASSEMBLY MACRO PASS GENERATOR PROGRAM OPERATING PROCEDURES 

Unfold the control panel Illustration on page 3-39. The buttons on the control panel used in operating the Preassembly 
Macro Pass Generator Program are numbered on the control panel illustration. As the. operating procedure is outlined, 
simulate the operation by locating the appropriate buttons on the control panel illustration. 

1. Load cards (see figure 3—4) in card reader, row 9 edge leading, face down. 

2. On the control panel, depress PROG CLEAR button (8). 

3. Depress CHANNEL CLEAR button (7). 

4. Depress CLEAR PRINTER button (1). 

5. Depress CLEAR READER button (2). 

6. Depress FEED READER button (3). 

7. Depress LOAD button ON (4). 

8. Depress RUN/START button (6). 

9. Depress LOAD button OFF (4). 

10. Depress RUN/START button (8). 

11. After LIBRARY is read, machine will HALT and display X' 01 FF' on NEXT INSTRUCTION/HALT INDICATOR 
LAMPS (a lighted lamp indicates a binary 1.) 

12. Depress RUN/START button (7) on control panel. 

13. Final HALT display is X'IFFF', 

The Punch output stacker should now contain DTF source code cards ready for assembly. 
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TWO-PASS CARD ASSEMBLY DATA PREPARATION 



Remove the END card from the DTF source code decks. Place user program START card in front of the deck. Place 
the user source code deck behind the DTF source code deck, make sure the last card is an END card. 

The "control stream" is constructed as follows: 



BLANK 



BLANK 



SOURCE 
DECKS 



"^ASSEMBLY 
[SECOND PASS 
DECK 




ASSEMBLY 
FIRST PASS 
DECK 



71 



SOURCE DECK (USER PROGRAM) MAKES 
TWO PASSES THROUGH COMPUTER. 



ASSEMBLY PASS 1 AND PASS 2 ARE STANDARD SOFTWARE 
DECKS. 



Figure 3—5 Two-Pass Card Assembly Control Stream 



in the above example, the DTF source code and user program are assembled together. The user may choose to assemble 
the DTF source code and the user program separately. 
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CARD ASSEMBLER OPERATING PROCEDURE 

Unfold the control panal illustration on page 3-39. The buttons on on the control panel used in operating the assembly 
are numbered on the illustration. As the operating procedure is outlined, simulate the operation by locating the appropriate 
buttons on the control panel illustration. 

1. Load cards (see figure 3—5) in the card reader row 9 edge leading, face down. 

2. On the control panel, depress PROG CLEAR button (8). 

3. Depress CHANNEL CLEAR button (7). 

4. Depress CLEAR PRINTER button (1). 

5. Depress CLEAR READER button (2). 

6. Depress FEED CARD button (3). 

7. Depress LOAD button ON (4). 

8. Depress RUN/START button (6). 

9. Depress LOAD button OFF (4). 

10. Depress RUN/START button (6). 

11. After the first few cards of Assembler Pass 2 have been read stop the processor by depressing INST button (5) 
on control panel. 

12. Take USING, SOURCE and END CARDS from reader output stacker and place them on top of remaining cards 
in reader input hopper; follow by 2 blank cards. 

13. Depress INST button (5) on control panel. 

14. Depress START. 

15. Assembler Listing will be printed. 

16. Punch output stacker will contain Object code cards for the Linker pass. 
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TWO-PASS LINKER PROGRAM DATA PREPARATION 

The Linker combines the output of the DTF and user program assembly. The input "control stream" for the Linker 
is as follows: 



BLANK 



BLANK 



ND CARD 



TRANSLATE 
TABLES 



EXEC. I 




ASSEMBLED 
USER 
PROGRAM 




ASSEMBLED 
MACROS 



LOADER 



EQUATE 
CARDS 



7- 



TBRD (STANDARD HOLLERITH- 
TO-EBDIC TABLES) 



STANDARD SOFTWARE DECK 



RELOCATABLE OBJECT CODING 



RELOCATABLE OBJECT CODE, PREASSEMBLY 
MACRO PASS 




PHASE 
CARD 



CONTROL 
CARD 



SEE DESCRIPTION THAT FOLLOWS 



SEE DESCRIPTION THAT FOLLOWS 



SEE DESCRIPTION THAT FOLLOWS 



LINKER 



STANDARD SOFTWARE DECK 



Figure 3—6 Two-Pass Linker Control Stream 



3-32 



CONTROL CARD 

10 16 

Format: «ti « « 

CTL n, p, q 

n = 1 (one-pass) 

n = 2 (two-pass). If n is blank, 1 pass will be assumed. 

p = decimal number of the largest address available on computer doing the linking. If p remains blank, 16,383 
bytes will be assumed. 

q = decimal number of the highest memory address available for use in program execution. If q remains blank, 
16,383 bytes will be assumed. Commas must be punched as specified. 

Example: 10 16 

CTL 2,8191,8191 

The following illustrates a control card prepared for a two-pass run on a 16K memory system. 



CTL 2*1<383«163«S 
I 

t0l9fll0BOO|oeiilD|0OB0 0|O00S00O000g00000O0000000 0 0 0000O0080S00lB>0tiailllllllllll 

• 2 1 4 S I I I IMllttnMB»niiNn!lltnMIII(nMlfN3132nM)iX3TJi»4*4l42 41Ma«t«7tt4INSI»»MHM»MHHHIiaHnilRilMllnailHIII|ll«»« 

iiiiitiiiiii]iiii|iiiii|iiiiiiiiniiiiin 111111111 111111111111111111111111111 lit 
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Figure 3—7 Control Card Format 
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Phase Card 

The phase card indicates the name of the object program, so that it will be punched into each card of the final object 
program deck. Phase name must be the same as operand in the START card of the user program. 

Format: 

The following illustrates a phase card prepared for a program named PGM. 



/ 


PHASE P6N«4a)6tA 
II 1 1 1 

1 II 








000000 

) I 1 4 ) • 

1 11 11 1 


DOOOOO|ODOOO|0|00|OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOIOIIIOOIO 

; 1 1 10 n 12 n M H 11 1; w mm:) »;3 24 29Mn2tM30]nn3M ]$n3;m3] 40 4I42 4]m«s4( 47 4I4«5«si s2U!4HSi»MMioni2DMnH(TNiiit n nnMHNimitH 

11 1 1 1ll 1 1 1 11 1 1 11 1 ill 11 1 1 1 1 1 1 1 1 1 1 1 1 1 n 1 1 1 1 1 1 1 1 1 1 1 1 n 1 It t ti 11 1 1 1 11 1 1 1 in n 11 


222222 


22222 21 2222222222222222222222222222222222222222222222222 


22222222. 


122 


(222222 


333331 


i33333333333|3333|33333333333333333333333333333333333333 


33333333 


133 


13331)3 


44 4444' 


1 4 444444444|4|444444444 4 4 444444444444444444444 4 4 444 4 4444 


44444444^ 


144' 


14444^44 


55SS5S! 


i5555S5|S5555S555555555SS555SS5SS5555S55555555S5S5555555 


S5555SSS! 


i55 


i55S$S5 


E66666f 


)66666666666668S|6 6 6 6S666666666S66E666686fi66S6G86S66fififit 


tSfiSStSII 


its 


S8SIIS8 


777777 


r77|77777||777777777777777777777777777777777777777777777 


77777777] 


177] 


r777777 


t il IS 81 


l88|l8lllll|88Sl|88tl888llll8l8IIIISI88ltl8ll8IIIIIIJII 


llllltlll 


• II 


lllllll 


99999.9999999999999 S 9 9|99999999999999999999999999999999S9S9999S999SS999I 111919191 
• I } « > 1 ? 1 iionttflHsiinai<»iia»M»»27»2SN]tsn)<»)i3>3tM4«<i4i4:«««<T««iHsi»»}i»ii->Mf4Niiii<iMiiii(iiiii]i«iiiiN««iiaiia 

go- mi 



Figure 3—8 Phase Card Format 



3-34 



Standard Loader Equate Card Statements 



L?CH EQU X'40' Fill character to be inserted in the 

area cleared by the card loader. 

L?AM EQU 4 Permits alteration of memory specified 

by the memory address switches. 

L?AR EQU 128 Start of the read area for the card 

loader. 

L?PG EQU 208 Start of the object code for the card 

loader. 

L?LO EQU 128 First memory location to be cleared by 

the card loader. 

L?HI EQU 16383 Last memory location to be cleared by 

the card loader. 



'l ?HI 
II 


1 


I&3a3 




EQU 
1 


128 


1 


1 


208 




EQU 
1 


1 28 


L ?AM 
1 


EUll 
1 


4 



II I 
I I 

OlOOOOOOOOOlOOolOOlOOOOSOOOOQDOOOOOOOOOOOOOOOOGOOOOOOOOQOOQOOOCOOOOGnCOOOOOOOOOO 

1 / J 4 5 S I 9 10 i1 1? O 1« 15 I! IM» 19 20 ?1 25 26 :■! ?S;9 3u V 3; 33 3< 35 3t 3? J> J5 40 O 4J 4545 J? «H9;0 51 W^; :i ^: 59« ru?ri 01 

11111111111111111111111111111111111111111111111111111111111111111111111111111111 
22222222222222222222222222222222222222722222222222222222222222222222222222222222 
1 3 1 3 3 3 3 3 ? J J 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 i 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 n 3 3 3 3 3 3 3 3 3 J 
4444-M444'!/,|44444|4444444444444444444444444444444444 U444444144 < 4444 4 4 44444-1 4444 
5 5 5 5 5 5 5 5 -J 1 5 5 5 5 5 5 1 5 5 1 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 i 5 5 5 5 5 5 5 5 5 5 5 5 
66666666G666666S66666666666666S6e6666666666GS6SESESE665S6666C666eCEE6SCSG6GS58E6 
7|77777777J7777|77777777777777777777777777777777777777777777 777777777777777777 77 
8|8|88S888|888g8|8l|888n8888ISI8tgS8$88888S8)888g88888888888S888888888S88888888 

999S3C999999S99999999S999939999999939993999939999999999933939939399S993999995999 

I ? ' 4 s • 7 s ? 19 II ;y 13 u i: IE w 13 n niTi ■ijs ?' 'm 30 )i 3: i) J4 j: a !';4o«i t: izmmti in,ic y- vi'V.m • ■.j'«ic»i *; '.i'.> uri li-.i n i? h .i i -i ij ;»m 



Figure 3—9 Equate Cards 
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LINKER OPERATING PROCEDURES 

Unfold control panel illustration on page 3-39. All the buttons on the control panel used in the Linker run are numbered 
on the illustration. As the operating procedure Is outlined, simulate the operation by locating the appropriate buttons 
on the control panel. 

1. Load cards (see figure 3—6 ) in the card reader, row 9 edge leading, face down. 

2. On the control panel, depress PROC CLEAR button (8). 

3. Depress CHANNEL CLEAR button (7). 

4. Depress CLEAR PRINTER button (1). 

5. Depress CLEAR READER button (2). 

6. Depress FEED CARD button (3). 

7. Depress LOAD button on (4). 

8. Depress RUN/START button (6). 

9. Depress LOAD button OFF (4). 

10. Depress RUN/START button (6). 

11. After first pass, remove Linker object deck from file and place remaining cards in input hopper a second time 
(last pass). 

12. Depress FEED READER button (3) on control panel. 

13. Depress RUN/START (6) on control panel. 

The Linker listing will be printed during the last pass. 
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PRODUCTION RUN OPERATING PROCEDURES 




Figure 3—10 Production Run Card Input 

1. Place above cards in Reader, row 9 edge leading, face down. 

2. On the control panel, depress PROG CLEAR button (8). 

3. Depress CHANNEL CLEAR button (7). 

4. Depress CLEAR PRINTER button (1). 

5. Depress CLEAR READER button (2). 

6. Depress FEED READER button (3). 

7. Depress LOAD button (4) ON. 

8. Depress RUN/START button (6). 

9. Depress LOAD button (4) OFF. 
10. Depress RUN/START button (6). 



Final display is X'1 FFF'. 
The output is printed data. 



POWER 



ON OFF 



OFF- 
LINE 



ON- 
LINE 




P R I N T E 



OFF LN CLEAP/HOME SPACE 




READER 



OFF LN CLEAR/FEED/ CONT 



PUNCH 



OFF- 






ON 


LINE 








ON- 








LINE 






OFF 



OFF-LN 


CLEAR 


FEED 


CONT 


OFF- 






ON 


LINE 








ON- 








LINE 






OFF 



I/O A PRINTER V 

l/O.B READER > OP ^BN DEV MEM 

I/O • C PUNCH ' CHAN R A/0 ADD MEM 

P . A PROG 



RUN 


STOP 








© 






START 


INST 


CYCLE 


LOAD 




ON 


ON 


ON 




OFF 


OFF 


OFF 



NEXT INSTRUCTION / HALT DISPLAY 

oooo oooo oooo oooo oooo 

no 

DISPLAY SELECT 

ooooo 



REQ 

o 



PROC ABODE DISPLAY ALTER 



DATA ENTRY 
1 



PROC\ 
ABN 



TEST 
MODE 



\CHANNgL 

CLEAR \cLEAR \ A \ B C 



MEMORY ADDRESS 


















1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


t 


1 


1 


1 


1 
















0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 



GREEM INDICATORX f.ifjgVED INDICATOR 




O 



WHITE INDICATOR 



The circled numbers identify the buttons used by the operator. 



Figure 3—11 Control Panel 
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CO 



9200 CARD ASSCNBLY 
PRINTED ASSCHBLY CODES: 



C COVER ERRORt NO USING COVERING RELOCATARLE OPERAND ADDRESS 

0 DOUBLY DEFINED LABEL OR REFERENCE TO DOUBLY DEFINED LABEL 
E EXPRESSION TOO LARGE OR IMPROPER SYNTAX 

H HALF WORD BOUNDARY ERROR ON RX OR AI OPERAND 

1 INSTRUCTION ERROR 

L LOCATION COUNTER TOO LARGE 

0 ORG ERRORi 2N0 DEFINITION OF A LABEL 



R RELOCATABLE TERMS IN THE EXPRESSION ARE IMPROPER OR TOO MANY 

S SEQUENCE BREAK IN COLUNS 76 TO 80 

T TRUNCATION OF OVERSIZE TERM 

U UNDEFINED LABEL REFERENCED IN THIS LINE 

X CONTINUATION*! NONBLANK COL 72 ON NONCOMNENT CARD >NOT PERMITTED 



0 001 
OOOZ 
OOO J - 
0 COd - 
0CD5 

OOPS 

0C07 
0C08 

0 CD9 

OCIO 

0 011 
. 0C12 

0 013 

OOl* - 

0015 

0016 

0C17 



0000 <t7F0009C 

0004 <l7F0009i» 
0008 -ISF 000 3S 
OOOC 4BF0E00O - - 
0010 02<lFF000030C 



START 0 
USING **0 

USING •»! 

•READ OTFCR EOFA=EOJ» 

• - - I0A1=R8UF* 

-» IT6L=TBM0« 

• MOOE^TRANS 

• ROR IOCS ICAROl 

ENTRY READ ■ 

EXTRN EOJ - - 

- -EXTRN - RBUF 

— EXTRN- IBRD 

READ BC 1S*A?0P 
- BC 15»A?CL 
A?GT-BAL-~ 15tA?WT 

LH - 1S*0C •im 

■ HVC GIBOtlSltRBUf 



.00 I— *-. 
.002—*- 



003. 

-— -00*.. 

DOS 



006 

.007. 
J108. 



009- 

010 . • 



> 

cn 
w 
m 

<: 

00 



3 

Z 



0018 0016 DC4FF000Q0O0 TR 

0019 OOlC 953MD30C - CLI 

0C?0 0020 >i780002C B.C 
0 021 002'» «I5F 00072 - - - - - 8AL 

0022 0028 <t7rOE002 ■ BC 

0023 002C il!>F00072 BAL 

0024 0030 HSFOOOSS BAL 

0025 003H <t7r002A8 SC 

0026 0038 A5Q1005F - - - A?»T- TIO - 

- 0 027 003C- a73000 38 BC- — 

0C28 DOUa 9IF3005F - IH 

0029 OO'*'* «I7'»0005A - - - BC- 

0030 00U8 9108005F. TM 

0031 OOUC «7d0F000 - BC 
OC32 0050 OSOlOOtfOOAS CLC 
-0033 0056 -t720F000 - — - — 8C- 

0034 005A AlOt^OOOOGlOO^OOO A?DS HSG 

0035 0C62 tOFODDAG — STH 

0036 0066 45F0C072 — BAt 

0037 006A «ieF000A6 -- ~ LH • 
0C38 006E <t7FOO038 BC 

-0 039 0072 9250C045 A?XF_«V t- 

0C40 0076 020100ii600Ai| HVC 

0041 D07C AU010012 - XIOF 

.0C'»2 0080- 4780F000 frC -- 

0043 - 0084 A501008D - - - - TIO 

0044 - 0088 A1080000610G40QO - A?Or HSG 

0C45 0090 47F0007C BC — 

0046 0094 45F00038 ■ A?CL BAL 

0C47 0098 47F0E000 - - BC 

-4)C48 009C 45F00072 4?0J»-8^AL- 

0 049 OOAC 47F0EO00 BC 

DOSC 00A4 030C A?CO OC 



0« 80* IS) • TSftO 
RBUF«0*0-0.52 
8»«*12 

■ 15»A?XF 

15*2(«14) 

15tA?XF 

lStA?UT 

15»E0J 

A?0S»5tl 
-3.A7UI 



A?0S*5»?43 

4*A?0S 
-A?0S*5.8 - 

8*0(»15) 

70I2»#A?ST 

2*01 * IS) 

24832 

15.A?C0*2 
-15»A?xr 



15»A?C0»2 
15*A?UT 
--69*80 



70(21 rA?CO 
18«0*t 
-8.0U ISV 



A?0I*5»l 
24832 

— i5»A?xr*io- 

15.A7WT 
]5*0(»14) 

— 15»A7XF 

15*01 tl*) 
YIRBUF) 



. Oi 1 
012 
013-. 

-014. 

.015 . 

-.016.. . 
017 
018 ' 

-019 

_020 — 
02 1 
022 

-023 

- 024 
025 

-026 
• 02 7 - 

- 028 
_.029 — 
-030 
-031 
-_012._ 

033 

- 03 4 
-035 — 

036 

...037-. 
—038 — 
. 039 - 
_04 0— 
_C4.1 



,04 2. - 
04 3 . . 



> 
CO 

m 

w 
r- 
< 



CO 
H 

Ci 

o 
o 



0 051- 

OC52 

0CS3 

0 05* - 

0C55 

0 C56 

0C57 

ncse 

0C5 9 
C OBO 
0G61 
0C62 
0C63 

0 est 

0C65 
0 CBG 
0C67 

Q ces 

0 C&9 
0 070 
0C71 
C3 072 
0073 
007i» 
0 075 
0 07G 
0 077 
0C78 
0 079 
0 080 
DG81 
0C82 
0 08 3 



00A&- 



OS - 



- 00A8 G35B 

OOAA - 

OOAA F* 



- CL2 — 

Y«RBUF*«0-i I 



OOAC «»7FD013 A 
0030 *>7FD015«t 
OOBt *<7FDC08*»- 
00B8 •I7F00DFE 

OOBC <i5F00I88 



A?ST OC 

ORG • 

- - DC - C -- 

PRNT OTFPR BKS?=132« 

CNTL=VESt 
PRA0=2» 
PR0V:FOF» 
FCNT:63 

PRINT IOCS <CARD> 

ENTRY PRNT 
ENTRY B?SH 
EXTRN FOF 
PRNT BC J5.870P 
BC 15»B?CL 

BC 15»* 

BC 15»B?CN 



OOCO «I8F0E000 - 

00C4 D283O08OF00O 

OOCA 92a001E 1 

OQCE 920200C8 ■ 

00D2 D20001CFOIE1 

0008 0200005001E1 - — 

OOOE 45F001C8 

00E2 U7F0E002 



00e& 92F000E3 — 
OOEA AAE00IE2-- 
OOEE t7F001EE — 



00F2- 45F00188 

00F6 921301CF 

OOFA *»7F00008 



• PUT 

B AL 

LH 
MVC 

-87SM MVI 

MVI 
MVC 

B?IS MVC 

SAL 

B?0 BC 

MVI 

- - AH 

BC 

— 8?F 8AL 
HV I 
BC 



15»«»?VE -- - 

IS*0(«II»|- 
128I132W0I15I 

B?SE* UO 

B?SH* I. 2 
B?K*3(n*8?Xl 
80I1»*B?SE«1 
15tB?XF 

lS*2t«l<»» • 

B?D*1.2i»0 

1<I«B?H 
15. FOF 

15t8?VC 

8?K*3»19 - - 
15t8?IS 



OCPU • CONTROL 

^ 0C85 OOFE B?CN EOU 

0086 OOFE 95<tOE003 CL I 

0C87 0102 «»7800n8 - BC 

00S8 0108 020000CBE00} HVC 

0099 OlOC 95D7E001 - CLI 

0D90 Olio (»7B00n8 BC 

0 091 out 9&oeoocB oi 

0G92 0118 913rE002 _ fl?n6 TH 

OdS one «t7aOEOO't BC — 

OC9'4 0120 02OO01E1E002 HVC 

0095 0126 9507ED01 CLI 

0C9-6 012A 1*7800132 »C- 

0C97 012E 960801E1 01 

nO<t8 0132 AAEOOir? B?6 AH 

0CO9 0136 47rocor2 ftC— 

0 100 • OPEN 

Oiri ni3A 92*400080 B?OP MVI 

0 102 013E 028200810080 *iVC 

0 103 014** 92020DCB - MVI 

0 10*» ■ 01U8 92F0019D MVI 

-C105 01«*C 92F000E3 MVI- 

0106 OlSO <»7F0E000 BC 

O 107 - • CLOSE 

0 108 015U-*i5F00ie8 .87CL-8AL 

0 109 01&8 «»7FaEO00 - BC 

0 110 • ERROR 

0 111 — 015C AS030195 - - - B7E - TIO 

0 112 - 0160 t730015C BC 

0 113 0164 91FB0195 - TM 

0 114 0168 -U780019C BC- 

0115 016C 31010195 B?ER TM 

0116 0170 47800178 BC 



3(14) .64 
8»B?06 

B?SH«ltll*3(l«) 
1(14) .C»P* 
8»B?06 
B?SH«lt8 
2(14) ffl 

-8*4<»14> - 



025 

026 

1327 

028 



029 

030 . 

031 

-— 032 

03 3 

034- 



P?SE«II l}t?(14) 

ni4»»c»f" 

«.B?G 

B?SE* 1*8 
14tB?H 
-15.B?F 



03 5 
036 
-037- 



-038 
039 
-4)4 0- 



128»64 

129(1 3U»128 - 
8?SH*1»2 
8?C*1 •240 

•B70*l •240 

1S*0( •14} 



04 1 

04 2 
-04i- 



044 

-04 5 
—046- 



> 

w 
m 

00 



3 

z 

o 

o 
o 
z 
-I 



-15.B7WE 

15*0C •14) 

6?0I«5.3 
3.B7E 

8?0I«5*251 

_a,8?C 

B?0I*5. 1 
8t» »8 



— 047 

048 

^4 9 — 



-05 0 



051 ■ 

4352—- 

053 •■ 

054.-. 

055- 

- .- 056 . 

-— 057 



0 in 



0118- 
0 119 



0121 

0 122 

0123 

0124 

012S 

0 126 

0 127 

0 128 

-0 129 -- 
0 130 

0131 

OIJZ 

013 J -- 
0 15*1 — 

•0 13S 

0136 — 
0137 

-0138 

0139 

OIUO 

OUl 

0 1*»2 

0 1*3 - 

Oinn 

Ol'tS - 
0 146 
0 IU7 
0 148 
0149 - 



-0 17 4 9200 01-90 

0178 91020195 

-017C-47800184 

-&18a-920000C3 

0184 9IF80195 

-0188 4780F00O - 

018C 94FCQ195 

0190 kl08000Q63004000 

0198 47FDF0QO 

-019C 47F00ia4 

OlAO 950F0050 - 

-01A4 47600184 

01A8 92F0019D - 

OlAC A10800Q06301400O 
01B4 47F0000O 



-«70*W0- 



•B?H TH B?0I*S«2- 

-8C - - 8tBTI 

NVI 8?0*1*0 

B?I TN B?0X«S*24a 



01B8 

- OIBC 

- OICO- 

- 01C4 

oice 

— OICC- 

- 0100- 

- 0104- 
— 0108 

- OlDC 
— OlEO 
— OlEl 

~ 01E2 
01E4 

- 01E5 
OlES 



40f 001B6 
45F0015C 
45F001C8- 
47F001BC 
40F0Q1D2 
A4030000- 
47800000 
AS03qi9S- 
Jl5F0ai6C- 
47F001CC 

-00 - 

GO 

0002 

11 



BC 
NI 

B?OI MSG 
BC 

e?C BC 

CL I 
BC 

- - - HV I 
HSG 

B?VX BC 



8«0t*151 
B?0I«St2S2 
25344 
I5*0t tlSI 

15*B?VX 

BOtlS 
6tB?VX 
B?C»1 t240- 
2S345 
15»0 



• VE«IF» 
B?VE STH 
6AL 

BAL 

BC 

B?XF STH 



F4 



tS»B?VX*2 

15»8?C - 

-15.87XF 

15tB?VC»4 
!5tB?N*2 

-8?K- XIOF — 0»3 - 

B?N BC 8t0 ■ - 

TIO B?DI«5»3 

-B?L— BAL 15.B7ER 

BC 15.8?K -- 

B?SE DC X»00« 

OC X'OO* 

B?H OC Y12) 
B?X1 OC YL1(0«17} 

. . ORG • 

OC C*4» 

USING ••0 



0S8 — 

059 

080- 

061 — 

062 - 

.....063 
064 

065 

066 . 

0&T-- 

_ 068 - 
- 069 
— 070- 
— 071 - 

072 

.073- 

...074 

075- 

076 - 

.... 077 - 
._. 078 

079— 

080- 

081 -. 

082— 

083- 

084 - 

08&- 

08 6 - 

087- 

088- 

-„ 089 



0 ISO 
0 151 
0 152 
0 153 
0 1511 
0 155 
0 1S6 
0 157 
0 158 
0 159 — 
0 l&O 
0161 

0 162 

0 163 
0 161 
O 165 — 
0 166 
0 167 

016* 

0 16<i 
0 170 ■- 

0171 

0 172 - 
0 173 
01 71 — 
0 175 
0 176 
0-177- — 
0178-- 
0179 -- 
.Ol«0 — 
0181 
QIB2 



01E6 (i5E00000 

OlEA 45ED00AC - — 

OlEE 02010*»7AOtl7S 
-OlF^-gZUDOSAC 

01F8 0282Q3AD03A C 

OlFE 15£0008aE2D20710- 
-C206 -F A00017C018 3 



Q20C D2010mA04B0 
0212 0EQ1Q1I1A017C 
0218 -02 OE 0 3C A0 1 30- 



021E 020703E7013F - 
022t 02 0««C*4 0'»0117 
-022A— '45E000B8E2O7011O- 
0232 tSEOODSCDSAC - 

0238 i»SE00008035C 

-0 2 3£ -92 tt n 0 3 A C 



0212 D28203AD03AC - 
0218 020S03CF03SC — 
-02lE-02aE03E 10362 



0251 020501700350 

025A-F23501910371 

-0260 F-A530U810191 



02&6-15EOa008035C 

026C 0505017D035C 

-0272- J»780025A 



0276 FA75018A0181 
027C 020F03FC0198 



USING 

EXTRN READ 

EXTSN PRNT 

ENTRY RBUF 

ENTRV EOJ 

ENTRY FOF 
BE6N OPEN READ 

OPEN PRNT 
FOF MVC CNTR,T2E»«1 

MVt- PRUKtX'10* 

MVC PRUK4-H 1 31 » tPRWK 

CNTRL PRNT»SK*7 
AP --PAGe(l)*ONE<l) 

MVC PSAL»22I2) *NSt(3 

ED PSAL»22(2I tPAGE 
MVC PEMP(1SI*H0R1 - 

MVC PSMNI8I*HDR? 

MVC PSAL(5»tHDR3 
CNTRt PRNT.SP.l 

PUT PRNTtPRWK 

GET READtCARO 

_H AN MV I PR WK * 10 » 

MVC PRUK*1(131)«PRUK 

MVC PRWK*3SI6) tEMPN 
KVC PRWK»S61 1&>«SNAN 

MVC SAVE<6JtEMPN 
MIN PACX PAKS(1}fSAi.E(6l 
AP TSAL »6I r PAKS1 1 »- 

GET - READ. CARD 

CLC SAVE.EMPN 
8C 8«MIN — = — 

AP FTOTfTSAL 

MVC PRUK»80( t6)*MSKl 



I 



CO J 



-04»3 02«-0e-C«)5F-C04«J| 

0 l««t 02«« t5E00C8C034C 

0185 028E /AlO0'«7AO*t83 - 

-0186 029*t- P9110«l7A0«*92 

0 187 029A *78aaiEE — 

0 188 029E 02050<t8t0174 

0189 02A1 >»7F0Q23E; 

0 190 - 02A8 FA750<t8AO«lBt • - - 

0191 02AE 020F03FC0*t98 

0 192 02B*< DECF03FC0*».8*f - 

0 193 02BA «t5E000BC03AC 

OlSH -02C0 92'»003AC • 

0 195 D2C«» D28203AD03AC 

019S 02CA 021«l03F70HA8 

0197 02D0 DE1103F70*t8A - 

0 198 02D6 D20A03E'»01«»C — — 

0 199 02DC «»5E00086E20701*»Q - 

0200 - - 02E1I *t5E0003C03AC 

0201 02EA- 92**003AC 

0 202 02EE O28203A0O3AC : 

0203 02F1 D21C030F0157 - 

„0 201 02FA-45E000BC03AC 

020S O30O-J»5EO000* 

-0 206 030* <»5E000B0 

0 207 0308 "A 900 IFFF 

0 208 030C RBUF 

0 20 9 035C 

0 210 035C 

0 211 0362 - 

0212 0371 

0 213 0377 

0 2H» 03 AC - - 

0215 - 03AC - 



AP 

CP 

BC 

NVC 

BC 

AP 

NVC 

ED 



NVC 
MVC 
£0 
MVC 



CARD 
CMPN 
SNAN 
SALE 



PRUK 



CO P«UK»80H6I-*TSAL- 

PUT PRNT#PRWK 
CNTRiONE 

CNTR«FIVe- — 

BtFOF 

TSAL(6)>TZeR 
IStMAN 
FT0Tf8l»TSALt6l 
PR UK 4-801 16)«NSK1 
PRWK»eOI 16)*TSAL 
PUT PRNttPRUK 
HVI PRUK (X* 00 • 

PRUK^inSllvPRUK 
PRWK4^7S<21I •NSK2 
PRUK»7&I21 ) tFTOI 
PRUK»56nn tHORO 
CNTRL PRNTtSPtl 
PUT PRNT*PRUK 
MVI PRWK »X»«»0» 
NVC PRUK»14 131»*PRMK 
NVC PRWK*Sn29)»HDR5 

PUT 4>RNT*PRWK 

CLOSC READ 

CLOSE PR NT - - 

HPR - X»irFF«- 

OS CL60 

0CL80 

CL6 — 

CL15 

CL6 

CL53 - 

0CL132 
CL30 



OS 
OS 
OS 
OS 
OS 
OS 
OS 



0 21G ^JCA PtHP 

0 217 - — 03D» - — 

0 218 03E7 - PSHM 

■ 0219 --- 03EF — 

0220 0U01 — - PSAL 

0 221 - 0*09 - - - - 

0 222 0t3D C5D«»070 306E6C5CS<4 00 5E"iO<lC2C 50 9 HOPl 

0 223 0«»3F E2C103C5E20<4C105 ~- HDR 2 

022«t 0^H^ E2C103C5E2- - - HDR3 

— -0 225 0«»<»C-^; 306E 3C 10 3*»0E 2CW 3C 5E-? 

0226 OtST C50SC<i<tOOGC&<t00 9C50 70809E3tOCe06 HORS 

- 0227- 0*167 0910C6C9E2C3C IDSitOEIlCSClOa — - 

O 228 0474-4300000000000 1219 

...... 0229 0«I7A OOOC - - CNTQ 

-. 0 230 047C-0C- •- PAGE 

0 231 0U7O SAVE- 

0 232 0483 IF - - - ONE 

0 233 - - 0484 OOOOOOOOOOOC - — TSAL 

0 234 046A-0OO000O00OOO0OOX FT01- 

0 235 - 0492 025C - — - — FIVE 

0 236 0494- - -- PAKS 

0 237 O49»-J^06B202020&82«20206«2tW0314-ft2O2O-RSK-l- 

- - 0 23S 04A8- 40206B202020682020206B2020206B20 MSK2 

- 0 239 04Ba -20214B2020 

0 24 0 04B0-4020 HSK^?- 

- 0241 



• OS CL15 — - 

OS CL14 - - 

05 CL8 - 

OS - CL21 

OS . CtS . - — 

OS CLS9 -■■ 

DC C'EHPLOYEE NUMBER* 

DC C •SALESMAN* - - -- - - - 

DC C •SALES' - 

— OC C 'TOTAL -SALES » 

OC C'ENO OF REPORT F0» - 

DC C»R FISCAL YEAR* - - > 

--0C x» 00 00 00 00 OOOC* .- m 

OC X'OOOC* - - — 00 

r- 

DC ■ - X»OC» - - — - - 

r- 

._.0S Cl.6 CO 

H 



DC X^1F» 

DC XL6»0C« - 

-OC XL«*€C« 

OC X*025C» 

OS— CL4 

-4>C Xt4OGa2&2020GB202020eB2O20M4-«202Oi- 



0 C - X ' 40 206 B20 20206B2Q 20 206820 20206 B20 * 
OC X*20?I4B2020* 

-OC X "^O 2&» 

ENO BE6N - 



O 
O 

z 



LINKER MAP 



0000 CTL 2tl63S3» 16383 

1000 PHASE P6M«<»09etA 



D0i»0 L?CH COU X*<»0* 



000<i L?«N EOU 4 

0080 L?AR EQU 128 



OODO L?PG EOU 208 



0080 L?LO EOU 128 

3FFF L?HI EQU 16383 



0008 A 0001 QOOS LO 0000 001 



0088 H 0088 L?R3 



00C8 H 00C8 L?HE 



OltC H OldC L?Cp 

0008 J LO 001 P 

0080 K 0002 L?AR 30 

OODO K 0003 L?PG ^ 

OOBO K 000«l L?LO 



3FFF K 0005 L?HI 



0040 K 0006 L?CH 



0004 K 0007 L?AH 



OQQQ 



1000 A 0001 0000 04BF 001 



1000 H 0000 READ 



lOAC H OOAC PRNT 



lOCA H OOCA B?SH 



130C H 030C RBUF 

12A8 H 02A8 EOJ 



llEE H QIEE FOF 



M 100 0 J 



S 12A8 K 0002 EOJ 



Y 130C K 0003 RBUF 

O 1570 K 000«4 T8RD 



llEE K 0005 fOF 



100 0 K 0006 READ 



lOAC K 0007 PRNT 



11E6 Y 



mCO A 0001 0000 EXI OOAF 001 



lUDt H 0011 E?IN 

IHD6 H 0016 E?SC 



1500 H O0'«0 E?R£ 

152E H 006E E?OS 

14C0 J EXI 



0000 Y 



1570 A 0001 0000 TBRO 0100 001 2 

1570 J IBRD m 



0000 Y 

nE6 END 



3 

o 
o 



EHPtOYtE NUMBER SALCSHAN 

OOCOOl ANDtRSONt MAHIC 

OOCOOZ BROUN t JOHN 

0OC003 CUNNINGMAHt TOH 

□OCOOH 0088 INS* PAUL 

00 0005 GETTtt PAUL 

0DC006 HUGHES* HOWARD 

000007 WASHINGTON* EQ 

OOC008 ELLSWORTH* AL 

OOC009 CASTOR* FRANK 

ODQOlO PETERSON* JOHN 

O'JOOtl JOHNSON* PAUL 

000012 JAHES* DIANE 

OOC013 EAST. MICHAeV" 

00 CO 11 TISHHAN* BOB 

oocois robertson* rod 

000017 chrisler* peter 

000018 oelnero* mike 

00 CO 19 FOWLERt FRANK 

00C020 HUDSON* STEVE 

00C021 HILL. BEVERLY 

00C022 JOHNSON* FRANK 

000023 THOMAS* LANCE 

00C02(| HILLER* GLADYS 



CO 
I 



SALES 

.00 

3*S6i|. 10 
lb* 192.10 

»t*727.70 
13>S32.30 
13*260.50 
21*459.0 3 

it*1i|M. 20 
ie**i03.82 

2»10i|.52 



9*5i»?.03 

2*am.s3 



1<I«9G3.6<I 
7. St 2. lb 

17*568.99 



9*765. 8«» 

i*iu722 

10«9<«7.62 



6*S2B.30 



2i035.20 
12*975.57 
5*2K3.06 
2*530.25 
5*623.02 
21*784.01 



CNPLOYCE NUHBCR 
000026 
00 00 27 
00 CO 28 
00 00 29 
(X) GO 30 
00 CO 31 
00 CD 32 
00 00 33 
00 CDS'* 
00 C0 3S 
00 CO 36 
00 CO 37 
00 CO 38 
00 00 39 
00 00 40 

00 com 

CO 0042 

00 com 

OOCOttO 
00 CO 45 
00 00 4 6 
00 0047 
00 004 8 
C0C049 
00 00 50 



SftLESHAN 
TODO* BARBARA 
UHTTHAN* TON 

POTTS f !70NAL0 
SCOTT. CtORCC 
LUCAS • KARV 
BROTHERS* PAT 
GOLOSTEINi HARK 
FRCEHAN* PETER 
ROSS» BETSY 
UHTTHAN* WALT 
ADAKS* JOHN 
WEBBi JOAN 



OAVrSt BEATRICE 
KENTO* JOAN 
HUNTER* THCLHA 
WELLS* SEATRICC 
HEART* JOHN 
WARHOL* ANDY 



SALES 
23t029.13 
18*273. 10 
7*852.41 
S>e?3.S'< 
7*320.21 
5*602.42 
7*582.02 
3.052.05 
9*766. M3 
6*025.41 
7*025.74 
8*963.02 
5*202.41 
1*020.14 
8*520.35 
9*657.20 
2*050.30 
1*056.23 



OELANEV* JOHN 
DOE* JOHN 
GARDNER* TRUDY 
MANNING* BEN 
ABBOTT* ANN 
HAUSHANN* TON 
HANN* BUOO 



3*025.14 
9.85 
9.85 



7*348.10 
65.20 
520.35 
3*203.56 



CMPLOYCC NUHBER 



SALCSNAN 



000051 GRANT • COUARO 

000052 FA6AN* COWARD 

000053 PCTCRSt DANIEL 
OOOOSe LA ROCCA* JOC 

TOTAL- SALES - -. — - 

EhO OF REPORT FOR FISCAL YEAR 



CO 

I 

W 



SALES 
11*100.66 
H*2t0.35 
ZtOS't.lZ 
6*532. CH 



■i03tO&S.18- 



TERMINAL PROBLEM 



INTRODUCTION 

The terminal problem is a monthly payroll reconciliation report program that will provide a practical exercise in applying 
the knowledge and coding skill you have acquired in this course. Use the Reference Supplement Section starting on 
page 3—59 to review specific instructions. 

Given the following problem statement and the input/output requirements for the program produce the flowchart and 
coding for the solution of the problem. 



PAYROLL RECONCILIATION REPORT PROGRAM OBJECTIVE , 

The Programmer's objective is to prepare a monthly reconciliation report that will provide management with salary 
status information and the accounting department with a monthly payroll total for all salaried employees. 

Below is a diagram followed by a description of the problem in terms of input, processing, and output. 



PROGRAM 



INPUT DATA 
CARDS 








PROCESSING 




PRINTED 
REPORT 









Figure 3—12 System Diagram 



Input Data 



The punched card deck contains a date card (the first card in the deck), and detail cards. Detail cards have a 1 punched 
in column 3, and employee number social security number, check amount and check number. Detail cards are in 
alphabetical order by employee name. 



Processing 

Print report title and page number at the top of every page, print column headings and detail information on each 
employee. Accumulate a final total; edit the total; then, print the total. 
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Output 

Printed report as shown on next page. 



INPUT DATA CARD FORMAT 



COLUMN DATA 

1 Identifying Detail Card 

27-31 Employee Number 

33-41 Social Security Number 

43-48 Check Amount 

50-54 Check Number 
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PRINTER FORMAT CHART 



FORM NMMBFR PAYROLL REPORT 
FORM PARTS 



APPLICATION. 
RUN NAME 



DATE 



RUN NUMBER. 



TYPE OF PRINTOUT. 



RECORD NAME. 

HP B 



RECORD NUMBER. 



PREPARED BY. 
APP^Vg^BY. 
DAITE APPROVE 



1 1 



CDAT£) 



CO 



PiAYROLL 



ENfPUT 



CHEQK* 



soc 



xxtx- 



SEC 



XX 



xx,)(x 



T[0i11>|L 



. NO 



)dxjxl. 



eF(ECK| 



XXX 



XX 



XXj 



OHEdK! 



NC 



REFERENCE SUPPLEMENT 



OPEN 



Format 
Example 



LABEL 



11 OPERATION is 
10 16 



OPERAND 



1 1 1 1 1 1 1 




QP.RN. 




r\ni.f.FlTI.RNAlME,) i . , . . i , , . , I 


1 1 1 1 1 1 1 




1 , . , 




1 1 1 1 1 I I 1 1 1 1 1 1 iJ 1 1 1 1 1 1 1 1 — 1 — 1 — 1—1 — 1 — 1 — L 


1 1 I 1 1 1 1 




QP,EN. 




EXLM 1 . . . , 1 , , . , 1 , 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 




1 . , . 




1 1 1 1 1 I 1 1 ' 1 ' 1 ' 1 1 1 1 ' 1 1 1 1 1 1 1 1 1 1 1 1 






1 . . . 







A. FUNCTION 

The OPEN macro makes a file available for input or output; each OPEN statement activates a specified file that 
is to be utilized in the user's program. 

B. RULES 

1. A Label field entry is optional. 

2. The Operation field entry is OPEN. 

3. The Operand (0P1) entry is the filename specified in the DTF statements. 

4. A file must be opened before any input/output macros can be issued for that file e.g., GET, PUT. 

5. Suggested order for starting program: 

START 

DTP'S 

BAL 

USING 

EXTRN 

ENTRY 

OPEN 

GET 

C. APPLICATION 

One OPEN statement must be used for each file to be accessed. 
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CLOSE 



Format 
Example 



LABEL 



« OPERATIONS 

10 16 



OPERAND 



1 1 1 1 1 1 1 




GLQSE 




OP.l(.WT.T.RNAlMR). i , . , . i . . , . i 


1 1 1 1 1 1 1 




1 . 1 1 




1 1 1 1 1 1 ■ I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 








FiXIjE I I I I I I I I I I I I I I I I I I I I I I I I I i 


1 1 1 1 i 1 1 




1 1 1 1 




1 1 1 1 1 1 1 1 1 1 1 1 1 1 I 1 1 1 1 1 1 1 I 1 1 1 1 1 1 1 


1 1 1 1 1 J I 




till 




■ III 1— 1—1— 1—1— L I J-L _i__L .j_ 1 1 1 1 1 1 1. -1 1 1 1 1 1 1 



A. FUNCTION 

To deactivate, or close, any file that was previously opened. 

B. RULES 

1. The Label field is not used. 

2. The Operation field entry is CLOSE. 

3. The Operand (0P1) entry specifies the filename of the file to be accessed. 

4. A file may be closed after it is determined that the file has been processed; e.g., after the PUT macro has 
been issued for output file. It is convenient to close all files following the last PUT statement. 

C. APPLICATION 

One CLOSE statement must be used for each file referenced. 

D. EXAMPLE 

If the filenames specified in DTF are FILM, FILT, and FILO, the appropriate CLOSE Macros are as shown below. 



LABEL t OPERATION « OPERAND t 

I 10 16 



1 1 1 1 1 1 1 




QLQSE 




FILM 1 ■ ■ . . 1 . . ■ , 1 , , , , 1 , , 1 


1 1 1 1 1 1 1 




QLQSE 




F.ILT. 1 . . , . 1 , . , . 1 , , . . 1 . . . . 1 . . , . 1 


1 1 1 1 1 1 1 




OLQSE 




F|XLQ 1 1 1 ! 1 1 1 1 1 1 1 1 1 1 1 1 1 1 r 1 1 1 1 1 1 1 






1 . . . 




1 1 1 1 1 1 1 1 1 1 1 1 f 1 / 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


—1111 .l_L_l_ 




1 1 1 1 




1 L 1 1 1 L_L- 1 1 1 1 1 1 l.J. J— 1— L 1 1 1 1 1 1 1 1 1 1 1 1 


I 1 1 1 1 1 1 




1 . . . 




1 1 1 i 1 1 1 1 1 1 1 ■ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
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USING 





LABEL 




OPERATION 




OPERAND 






1 


10 


16 




Format 











QUI ,.QI>2 . . 1 


1 1 1 1 1 1 i 1 1 t 1 1 




1 1 1 1 1 1 1 








1 1 1 1 1 1 1 1 1 i 1 1 1 1 i 1 1 1 


, 1 . , , . 1 , , , , 1 


Example 


1 1 1 1 1 1 1 








* ri0t 1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 1 1 1 




1 1 1 1 1 1 1 




1 1 1 1 




1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ■ 1 1 1 1 1 1 1 1 1 t 1 




■ ' 




1 . . • 




. 1 I 1 1, 1 I. 1. -L 1 1 1 1 1 i 1 1 I 1 L 1 1 1 J__1_J_I 1 .±_1_L 



A. FUNCTION 

The USING directive provides for direct addressing by listing the number of modules of 4096 bytes that are available 
for instructions including the Input/Output Control System (IOCS) and the tables. 

B. RULES 

1. The Label field is not used. 

2. The Operation field entry is USING. 

3. The example above makes 4K bytes available {*,0). 

4. The statements must be assigned in sequence starting with USING *,0. 

5. One USING statement for each block of 4K bytes. 

6. The available memory can be designated for up to 32 K bytes. 

The following lines of coding would be included for a computer whose memory is rated at 16K bytes. 



LABEL t OPERATIONS OPERAND 
10 16 



1 1 1 1 1 1 1 








■k nt . . 
1 ^'i^i 1 1. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 t 1 1 1 1 


1 1 1 1 1 1 1 




USING 




* 1 1 

1^'-^ ill! .1. i 1 1 1 1 1 1 I 1 1 . 1 . , . . 1 . , 1 , 1 


' 1 1 1 1 1 1 




^^^^(^ 




* 2 

-.'^^ 1 1 ' 1 1 ' 1 1 ' ' ' 1 ' ■ ■ ' 1 ' ■ 1 ■ 1 ' 1 1 ■ 1 


J 1 1 1 1 








* 3 

-'^11 1 1 1 1 1 1 1 1 1 1 1 1-1 1 1 1 1 . 1 1 1 1 1 ... 1 






1 1 1 1 




1' 1' 1 1 i 1 i ■■■ 1 


1 1 1 1 1 1 1 




. i ■ 1 1 




' ' ' ' 1 ' ' 1 1 1 ■ ■ ' I 1 ' ■ ■ ■ 1 ■ ■ ■ ■ 1 ■ ■ ■ ■ 1 



For 8K bytes of memory only the first two lines would be used. 
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EXTRN 



Format 



Example 



LABEL 



t OPERATIONS 
10 16 



OPERAND 



1 1 1 1 1 1 1. 






0,P.1(J,IJ.^:,N;W1, .F.QR. .RPADPR), i , , , , i 


1 1 1 1 1 1 1 






QP.],(.F,ILENAiyCE. Fp,R PRIfJTER) , , . . . , 








1 1 1 I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 


E|XTRN 




^.AD 1 , , , 1 , , , , 1 . i .x.^ 




1 , . . 




■ ■ ■ ' 1 ' ' ■ ' ' ■ ■ ■ ■ ' ■ ■ ■ ■ 1 ■ ■ ■ ' 1 ' ' ' 1 1 



A. FUNCTION 

Allows for the labels used in one program to be defined in another. 

B. RULES 

1. The Label field not used. 

2. The Operation field entry is EXTRN, 

3. The Operand (0P1) is the filename for the reader or the printer. (The name given in a DTF statement) 

4. If the EXTRN statement is not supplied the assembler will flag the filenames as undefined (unreferenced). 
The suggested placement in the program is shown below. 



LABEL t OPERATION* OPERAND t 

1 10 16 







1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 1 1 1 






1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 


^AL , 




1 1 1 1 1 r 1 


IfSING 


!::::;::::! 


1 1 1 1 1 1 I 


e;xtris 


READ ,,,,,, 


I 1 1 1 1 1 1 




1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 t 1 1 1 1 1 1 1 1 






.. i. .1. 1 1 1 1 1 t 1 i 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


I 1 1 1 1 ^ 1 


1 , , . 


i 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ■ 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 


1 , . , 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 I 1 1 


1 . . . 


1 1 ■ 1 1 1 1 -t J 1 1 J— 1— L 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 


1 . . . 


1 1 1 1 1 1 1 1 1 .1 1 1 1 1-1., J_.J 1 .1 1 1 1 1 1 1 1 1 . .1 1 i 
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ENTRY 



Format 
Example 



LABEL « OPERATION « OPERAND % 
1 10 16 


1 1 1 1 1 1 1 






qP.l (,F,ILENA,tffi-NA,ME_ OF, SUBP,RpG,RAp4,) , ^ 


1 1 1 1 1 1 1 




1 1 1 1 


1 1 1 1 1 1 1 ■ 1 1 1 1 1 1 1 1 1 1 . 1. ■ ■ • ■ 1 . ■ 1 • 1 ■ ■ . 


/ 1 1 1 1 1 1 




e;ntry 


EOJ ,,,,,, 


■J_.L, 1 1 1 1 1 




1 1 1 1 


1 1 I_lJ -1-1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 i i I 1 1 1 1 1 1 


1 1 1 1 1 J 1 




1 , . , 


- ' ' ' 1 ' ' ■ • 1 ' ' ■ • 1 ■ ■ ■ ■ 1 1 . ' ■ 



A. FUNCTION 

Supplies a name of a subprogram within the user program. 

(Supplies reference to a keyword parameter in the DTF statement; e.g., DTFCR EOFA=EOJ) 

B. RULES 

1. The Label field not used. 

2. The Operation entry is ENTRY. 

3. The Operand (0P1) specifies the name of the user's subprogram. 

4. ENTRY supplies reference to a keyword parameter in the DTF statement. 



LABEL « OPERATIONS OPERAND t COMMENTS 

1 10 16 



_a..i .1. i, 1 ., . 




ElQjr , ,mD, m AQB, .^o,qT.:^N,E,) , , 






F,QF, , , (FOI^S OyijRFLpV^ ROUT|INE), i , 




1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 i 1 i 1 1 1 1 1 1 1 1 1 1 1 1 1 t 1 1 1 1 




1 1 1 i 


1 J 1 1 1 1 1 .1.1 1 I .1. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 




.1 11 1 


' ' ' ' 1 1 ■ 1 1 ' ■ 1 ' ' ' ■ ' ■ ' 1 ' ' ' ' 1 ' ' ' ' 1 ■ ' ■ ■ ' ' ■ ' 1 1 




till 


-I — i_i — i__i_i 1 1 1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 1 1 1 1 1 




. .L.J_ - 


1 1 1 1 1 1 1 1 1 1 1 1 1 i 1 1 1 1 i 1 1 1 i 1 t 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 




I-J..X 1. . 


1 1 1 1 1 1 1 1 1 ■ 1 1 1 1 1 1 1 1 1 1 1 I i 1 i i 1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 




1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 r 1 1 1 1 1 1 




. il 1 1 I- . 


1 .1 -J— 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 I 1 1 1 1 1 1 1 .1 




1 1 1 1 


i 1 1 1 1 1 1 1 1 j 1 I 1 1 i 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 1 
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GET 



Format 
Example 



LABEL t OPERATION t OPERAND t 
1 10 16 


1 1 1 1 1 1 1 








QP.1(.E1ILEN^).,.QP,2.(.TOI^;^.), , , , 


1 1 1 1 1 1 1 




1 , , I 






-J ..I 1 1 1 1 1- 




m . 




F:3;I^n„Ai^A 1 1 . , , 1 1 . , , , 1 


1 1 1 1 i 1 1 




1 1 1 1 




1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 F 1 1 1 1 1 1 1 i 1 1 1 [ 1 


1 1 1 1 1 1 1 




1 . , , 




1 1 I 1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 I 1 1 1 .1 1 1 1 1. 1 1 1 


_i. 1- 1 1 1 1 1. 




III. 







A. FUNCTION 

The GET macro makes the next consecutive logical record available for processing in either an input area or a 
work area. 

B. RULES 

1 . Records are processed in work areas. In this case, the GET macro moves each record from the DTFCR specified 
input area (I0A1) to a work area. In this format, the Label field is not used, and the Operation field entry 
is GET. The Operand field has two parts, 0P1 and 0P2, which are separated by commas. 

a. 0P1 (Filename) - the name specified in the DTFCR. Name of file from which record is to be retrieved. 

b. 0P2 (Workname) - the name specified in the DS instruction that reserves the work area in memory. 
NOTE: DTFCR's must include an I0A1 = RBUF entry (name of the buffer area for card reader). 

2. If the data transferred to Workname (AREA) by the GET instruction is a standard end-of-file card (the data 
contains the characters /* in the first two locations) control is transferred to the EOJ subprogram. 

EXAMPLE 



LABEL t OPERATION t OPERAND « COMMENTS 

1 10 16 



F,lh^ , , , 




XQA1,=^RB,UF, 1 .(.READEP. BiUPPEJ^ AREA). , , , i 


1 1 1 1 ill 


1 , 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 I 1 1 1 1 1 1 1 1 1 1 J 1 1 1 1 1 1 1 


1 L.J. 1 1 1 


1 , 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 t 1 1 1 1 1 1 1 ._L 


1 , , 




gL12^ . ,TOADER .WORK ,AREA), , 


1 1 1 1 1 1 I, . . 


. .-i.,jL.J.Jl,, . . 


1 ■ ■ ■ 1 ■ ' ■ ' ' ■ ' ■ ■ ' ■ 1 ' ■ 1 ■ ' ■ ' 1 ■ ■ 1 ■ 1 1 ' ' ' 1 1 1 1 1 1 


i 1 1 1 1 1 1 




1 ' ' 1 1 1 ' 1 1 1 — 1 1—1 i_J 1—1 i__i l—i 1 1 .1 J — 1—1 — I— 1 — l—i — I— 1 — 1 1 1 — I'll 


1 1 1 1 1 1 1 




1 1 1 1 1 1 ■ ' 1 1 1 ' 1 1—1 1 1 1 ' 1 1 1 1 1 1 1 1 1 1 1 1 — i—i — 1—1 — 1 — 1—1 — 1— L 


1 1 1 1 1 1 1 




FILU,,AREA 1 , .1 . 1 . , , , 1 . . , . 1 , , , . 1 

1 l" 1 y| 1 1 1 1 |_j i_| 1 1 1— 1 — 1 — 1 — I— 1 — l_l — I— 1 — l_l — 1— 1 — l_l — 1 — 1—1 — i_L 


.J..J.1. 1 .1-1 1 


1 , , > 


' I ' ' 1 I ■ 1 ■ 1 ' ■ ■ lJ L_l l_t L-l — 1 1 1 1 — 1 1 1 1 1 1 — I— 1 — I—Lj — III! 


1 1 1 1 1 1 1 


1 , , I 


1 1 1 1 1 1 1 1 ■ 1 ' ' 1 ' 1 ■ ■ ' ■ 1 ■ ■ ' ' 1 ■ ' ' ' 1 ' ' 1 ' 1 ' 1 ' ' 1 


. . 1 1 i 1 1 


till 


1 1 1 1 1 1 1 1 1 f 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 — — 1 J — — i_J — 1_ 1 J — i_J_ 
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PUT 



Format 
Example 



LABEL 



6 OPERATION* 
10 16 



OPERAND 



1 1 1 1 1 1 1 


PIU.T. . 


0P.l(PiILENAKE.).,.aP.2.(.WOiRKNi^). . , i 


1 1 1 1 1 1 1 


1 > . . .. 


• > > . 1 , , , , 1 , , , . 1 , , , , 1 


1 1 ,1— 1— L 11.. 


RUT. . 


F.HaU 1 . , , 1 . . . . 1 , , , . 1 , , , , 1 


1 1 1 1 1 1 1 


mT, . 


F.ll4U.,A]^A 1 1 


— i I ,1. 1 1 1 1 - 


1 . . . 


' 1 1 i 1 1 L_1__1_Ll 1 1 J.J 1 I 1 1 1 1 1 1 1 1 


L.l J.,J_L.J J 


1 . . . 


1 I 1 1 1 1 1 1 1 1 1 1 1 1 i 1 1 ■ 1 1 1 1 1 1 1 1 1 1 1 1 



A. FUNCTION 

The PUT macro causes the writing, punching, or displaying of logical records that have been assembled directly 
in the input area or a specified work area. 

B. RULES 

The PUT macro moves a record from a specified work area for output to a printer, punch, or other 
device and immediately frees the area for other program use. The Label field is not used, and the Operation 
field entry is PUT. The Operand field has two parts that are separated by commas: 

1. 0P1 - the filename specified in the DTF statement. 

2. 0P2 - the work area specified in the DS instruction that reserves a work area in memory. 
NOTE: DTFPR's must include PROV = FOF (Forms Overflow Routine) entry. 

C. APPLICATION 

All data transferred from the printer work area to the buffer area causes a line to be printed, advances the paper, 
and checks for the end of page condition. If the end of page Is detected, control is transferred to the FOF program 
before further execution of the program is accomplished. If the forms overflow condition is not detected, processing 
continues after the printing of the line of data is completed. 
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CNTRL 



Format 
Example 



LABEL 



« OPERATIONS 
10 16 



OPERAND 



1 1 1 1 1 1 1 






FiLE;NA]^„qQQE;,.H„N . , i 


1 1 1 1 1 1 1 




1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 






f^^I,-!?^^!*,,^ 1 , 


1 1 1 1 1 1 1 




1 1 i 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 _1_ 




1 . . 1 


1 1 1 1, 1 1 1 1 1 1 1 1 1 1 J L 1 L-J-J- 1 1 1 1 1 1 1 1 1 1 



A. FUNCTION 

To permit the programmer to specify the format of a printout. 

B. RULES 

1. The Label field is not used. 

2. The Operation field entry is CNTRL. 

3. The Operand field entries are the following: 

a. 0P1 - Filename specified in DTFPR 

SK,M,N = channel to skip to on carriage control tape 
M = skip before printing 
N = skip after printing 

b. Code - 0. 1 or 2 

If SP is used, the 2 signifies "space two lines". 

SP,M,N (M=number of spaces before printing) 
(N^number of space after printing) 

4. M or N may be omitted, commas may NOT be omitted. 

5. Normally, single spacing Is automatically provided. If any other type of spacing Is required, SP is used. 

6. If CNTRL is omitted, normal spacing as specified by the PRAD Detail Entry card will be executed. 

7. Throughput will be faster if both spacing and skipping are specified after printing, rather than before. 



3-66 



C. EXAMPLES 



LABEL 

1 


t 


OPERATIONS 
10 


OPERAND 

16 






t 




1 1 1 1 1 1 1 








FXhh,iSP,,X 1 . . . . 


1 1 1 1 


1 1 1 




1 1 J 1 










^.^^A 1 1 ... , 1 .... 1 






i 1 ■ 1 




1 1 1 t i 1 1 1 I 1 1 1 1 1 1 1 1 1 I 1 1 1 t 1 1 1 1 1 1 1 






1 1 1 1 




1 1 1 1 1 t i 1 1 1 1 1 1 1 


1 1 1 1 






1 1 1 1 


. . . , 1 . . 




1 1 1 1 




_L_L 1 1 1 1 1 J_ 1 1 1 1 1 1 1 1 1 1 1 1 1 J. 1 I 1 1 . 1 



Advances one line before printing. 



LABEL t OPERATIONS OPERAND t 
1 ' 10 16 


1 1 1 1 1 1 1 




qNTRI 




FILA„SP,2 1 , , , , 

1 1 1 1 '1 1 1 'I 1 1 1 t 1 > 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 










1 1 1 1 1 1 1 1 1 i 1 1 1 i 1 1 1 1 . 1 1 1 1 1 1 . 1 1 > 1 


. I 1 1 1 1 t J_ 




1 . . . 




-1 1 1 i 1 1 1 1 1 1 1 1 1 1 1 1 1 I 1 1 1 1 1 1 1 i 1 1 1 1 



Advances two lines before printing. 



3. 



LABEL 

1 




OPERATION « 
10 


OPERAND 

16 


t 


1 1 . 1 1 1 1 








F.IXA/jSKf.li i . . . i 1 1 . . . 1 . 1 . . 1 . . 1 . 1 


1 ■ ■ 1 1 1 1 




1 i 1 1 




1 1 1 i 1 .. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 i 1 1 . 1 I . 1 


1 I 1 1 1 1 1 




1 . . ■ 




1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 III 


1 1 1 1 1 1 1 1 1 1 1 1 













Specif ies an immediate skip to bottom of page. 

The CNTRL macro instruction should be used only in conjunction with a 48 or 16-character print bar. 
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INTRODUCTION TO PACK AND UNPACK 

PACKED FORMAT: 

One byte (8 bits) represents two decimal digits. The rightmost half-byte represents the sign. 



BYTE 


BYTE 


BYTE 


BYTE 


Digit 


Digit 


Digit 


Digit 


Digit 


Digit 


Digit 


Sign 



EXAMPLE: 37246C Pos. sign = C 

Neg. sign = D 

UNPACKED FORMAT (ZONED FORMAT): 

The low-order four bits of each 8-bit contain the decimal digit, and the high-order four bits define the EBCDIC zone. 
The high-order four bits of the rightmost byte of the field contain the sign of the field. 



BYTE 


BYTE 


BYTE 


BYTE 


Zone 


Digit 


Zone 


Digit 


Zone 


Digit 


Sign 


Digit 



EXAMPLE: F1F3F4C5 Pos. signs - FAC,E 

Neg. signs - B and D 
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LABEL 

1 




OPERATION* 
10 


OPERAND t 

16 


1 t 1 1 i 1 1 








QP.l.*PiPA ■ . 1 . , . . 1 , , . . 1 . , . . 1 , , , . 1 






1 1 . 1 




1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


• 1 . . 1 • 1 








AWi:,5j„PP,TA,(.9,) 







1 1 1 1 




1 ■ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 f 1 1 1 1 1 


. 1 . . 1 . . 




1 1 1 1 







PACK 

Format 
Example 

A. FUNCTION 

The operand specified by the 0P2 Is converted from zoned format to packed format, and the result is placed 
In the location specified by 0P1. 

B. RULES 

1. The operand specified by the second address must be in zoned format. 

2. Packing may be done in place, or in another area. Also operands may overlap. 
If packing is done in another area, the area does not have to be cleared or initialized. 
The maximum size of the second operand is 16 bytes. 



To determine the minimum size of the first operand, divide the number of bytes in the zoned field by two 
and add one to the result. If the zoned field contains an odd number of bytes, ignore the fraction when 
you divide by two. 



6. The PACK instruction must be used when data to be processed must be operated on by any of the decimal 
instructions, e.g., AP,SP, CP. 

C. APPLICATION 

1. The fields are processed one byte at a time from right to left. Signs and digits are not checked for validity. 

2. The two portions of the low-order byte are reversed, leaving the sign in the low-order position. Then, the 
zone portion is stripped from each successive byte, and two decimal digits of the second operand and are 
combined to produce each byte of the packed field. 

3. If the first operand is too long, it will be filled with high-order zeros. 

4. If the first operand is too short, any remaining high-order digits in the second operand will be ignored. 

5. The second operand is not changed except when operands overlap. 

6. No condition code is generated. 

D. EXAMPLES 



LABEL 



t OPERATION « 
10 16 



OPERAND 



1 1 • 1 1 1 1 








//,RKl(i3.).,.VIRK2.(.4:)i 1 


..J..J..^t. 1 J.J 




i , . . 




1 1 1 1 1 1 1 1 1 1 1 1 1 1 i 1 I 1 1 I 1 1 i 1 1 1 1 1 1 1 


I 1 1 1 1 1 1 


.... 




1 1 1 1 1 1 1 1 ■ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
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Storage Definitions: 



LABEL t OPERATION* OPERAND t 
1 10 16 


1 ■ . 








1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 










}i;',B;!^ili,F2,F,^' 


1 1 1 1 t 1 1 




till 




1 I 1 1 i 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 



Operands Before: 

Operand 1 
Operand 2 



WRK1 
WRK2 



FOFOFO 
F0F1F2F3 



Operands After: 



Operand 1 
Operand 2 



WRK1 
WRK2 



00123F 
F0F1F2F3 
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LABEL 

1 




OPERATIONS 
10 


OPERANO 

U 




i I 1 1 1 1 1 




qNP,K 




0P1,QP2 , , , 1,1 

1 1 1 ' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 J I 1 1 


1 1 1 1 1 1 1 










I 1 1 1 i 1 1 




qNPK 




BETA(,9) ,ALPH{5), , ' , , 

1 1 1 1 1 III 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 






1 . 1 1 




1 1 1 1 1 1 1 1 i 1 1 1 i 1 1 1 1 1 1 1 1 1 i 1 1 1 1 1 1 1 






1 1 1 1 




1 1 1 1 1 1 1 ' 1 1 1 1 I ' 1 1' 1 ' 1 ' 1 1 1 1 1 1 ' 1 1 



UNPACK 

Format 
Example 

A. FUNCTION 

The operand specified by 0P2 is converted from packed format to zoned format and the result is placed in the 
location specified by 0P1. 

B. RULES 

1. The second operand should be in packed format. 

2. The maximum size of the first operand (zoned field) is 16 bytes. 

3. A field should not be unpacked into itself. 

4. To determine the minimum size of the first operand, double the number of bytes in the packed field and 
subtract one from the result. 

5. Packed data cannot be printed in meaningful form. Therefore, this instruction is used to enable data to be 
punched in standard code, or printed in readily readable form. 

6. The first operand does not have to be cleared or initialized by the user. 

C. APPLICATION 

1. The fields are processed one byte at a time from right to left. Signs and digits are not checked for validity. 

2. The two portions of the low-order byte are reversed, leaving the sign in the high-order position. The sign 
is a standard plus (1100) or minus (1101) sign, depending upon the sign of the packed field. Each digit 
is preceded by a hexadecimal F (this occupies the zone portion of each byte). 

3. If the first operand is too short, any remaining high-order digits are ignored. 

4. If the first operand is too long, it will be filled with high-order zeros. 

5. The condition code remains unchanged. 

6. If two different operand fields are specified, the second operand field is unchanged. 

D. EXAMPLE 



LABEL 



t OPERATIONS 
to 16 



OPERAND 











UAMT.(,9.).,.PA1^.(.5.) 1 


1 1 1 i 1 1 1 




1 . , < 




1 1 1 1 1 1 / 1 1 1 J 1 1 1 1 1 1 r 1 1 1 1 r 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 




i 1 1 1 




i 1 1 1 1 1 J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
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Storage Definitions 



LABEL t OPERATIONS OPERAND « 

1 10 16 



ClAMT. 1 , . 




ns, , , 




CI<9, 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


PAMT. 1 . . 




DC . . 




X ',37.211.7.8,4.411.0, V . i , . . , i , , . . i , , , , i 


-i 1 t 1 .1-1—1 




1 1 1 1 




1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 i 



Operands Before 

UAMT 000000000000000000 
PAMT 3721 78441 C 



Operands After 

UAMT F3F7F2F1F7F8F4F4C1 
PAMT 372178441 C 
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LABEL 



« OPERATION « 
10 16 



OPERAND 



1 1 1 1 1 1 1 


AE . , 






r 






1 1 ■ 1 1 1 1 


1 , . 






. . . 1 , 










1 1 ■ 1 1 1 1 






ALE^^i5.).,.BE;TA(3), 


. . . 1 . 




1 






1 1 t 1 1 1 1 


t . . 




1 1 1 1 1 1 1 1 1 i 1 1 1 1 1 


,1,1. 




1 






» 1 1 1 1 1 1 . 


1 . . 




1 J. 1 1 1 1 1 1 I 1 1 1 1 


. . . 1 . 




Lj_i 







ADD PACKED DECIMAL 

Format 
Example 

A. FUNCTION 

The operand specified by 0P2 is added algebraically to the operand specified by 0P1. The result is stored in 
the field specified by 0P1. The sign and magnitude of the sum determine the condition code. 

B. RULES 

1. Both operands must be in packed format. 

2. The first operand must be long enough to contain all the significant digits of the sum. 

3. If the second operand is shorter than the first, the addition will be normal. 

4. The maximum length of either operand is 16 bytes. 

5. Overflow occurs if: 

a. There is a carry out of the high-order position of the result. 

b. The second operand is larger than the first operand and significant result positions are lost. 

6. If operands overlap, their rightmost byte location must coincide. 

7. A field may be added to Itself. 

C. APPLICATION 

1. Processing is from right to left. Signs are checked first before the arithmetic is performed. 

2. All signs and digits are checked for validity. 

3. High-order zeros are supplied for either operand during instruction execution. 

4. The operand specified by the second address is unaltered. 

5. Algebra rules are used for determining signs. 

6. Zero result is always positive, except when high-order digits are lost because of overflow. 

7. In overflow, a zero result has the sign of the correct result. 



8. The sum Is in packed format. 



3-73 



9. The condition code settings are as follows: 

CONDITION SETTING 

Sum = 0 0 
Sum is < zero 1 
Sum is > zero 2 
Overflow 3 

D. EXAMPLE 



LABEL « OPERATION* OPERAND % 
1 10 16 


1 1 1 1 1 1 1 








QT.y2.(,5.).,QT,Y.l.(.3.) 


. 1 L 1 .1 1 1 1 




1 . . . 




1 1 1 1 1 1 1 .i_ j_ J I 1 1 1 1 1 1 1 1 1 1 1 1 ■ 1 I 1 1 ■ 1 


1 1 1 1 1 ■ ■ 




1 1 1 1 




1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 



Storage Allocations 



LABEL t OPERATION « OPERAND t 

1 10 16 







qs, , , 




CL5i 1 1 1 1 1 i 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


QT.Y1 1 . , 




qs, , , 




CX*3 . 1 .... 1 1 .... 1 .... 1 .... 1 


1 1 1 1 1 1 1 




1 1 1 1 




1 1 1 1 i 1 1 1 1 i 1 1 1 1 1 1 1 1 1 1 1 1 1 [ 1 1 1 1 1 1 



Operands Before 

First Operand: QTY2 0000001 23C 

Second Operand: QTY1 08900C 



Operands After 

First Operand: QTY2 000009023C 

Second Operand: QTY1 08900C 

Condition Code Setting 

2 (result is positive.) 
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SUBTRACT PACKED DECIMAL 



LABEL 

1 




OPERATION t 
10 


OPERAND « 

16 


■ 1 1 1 1 1 1 




Sip, , , 




^|P|lif 1 1 1 1 1 1 t 1 1 1 , 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 




1 1 1 1 




1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 J 1 1 1 r r 1 1 1 1 r J 1 1 


1 1 1 1 1 1 1 








QT.Y.1.(,5.),„Q,T,Y,2,(.3) , 


1 1 1 1 1 1 1 




1 1 1 1 




1 1 1 1 1 1 1 1 1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 1 1 1 1 1 1 i 



Format 
Example 

A. FUNCTION 

The operand specified by 0P2 is subtracted algebraically from the operand specified by 0P1. The result is stored 
in the field specified by 0P1. The sign and magnitude of the difference determine the condition code. 

B. RULES 

1. Both operands must be in packed form. 

2. The first operand must be long enough to contain ail the significant digits of the difference. Otherwise, overflow 
occurs. 

3. A field may be subtracted from itself. 

4. If the second operand is shorter than the first, subtraction will take place normally. 

5. The maximum length of either operand is 16 bytes. 

6. If operands overlap, their rightmost byte locations must coincide. 

C. APPLICATION 

1. Processing is from right to left. The signs are checked first and then arithmetic is performed. 

2. All signs and digits are checked for validity. 

3. High-order zeros are supplied for either operand during instruction execution. 

4. The operand specified by the second address is unaltered. 

5. Algebra rules are used for determining signs. 

6. Zero result is always positive except when high-order digits are lost because of overflow. 

7. In overflow, a zero result has the sign of the correct difference. 



8. The difference is in packed format. 
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9. The condition code settings are as follows: 
CONDITION SETTING 



Difference = 0 
Difference < 0 
Difference > 0 
Overflow 



D. EXAMPLE 



LABEL 

1 




OPERATIOHfi 
10 


16 


OPERAND 






1 1 1 1 1 1 1 








Q,T,Y,1,(,5,) 


.,Q^^,2,(,3) 


1 1 r 1 r 1 1 


1 1 1 1 


1 1 1 1 1 1 1 




1 ■ 1 1 




1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 < 1 1 



Storage Allocations 



LABEL « OPERATIONS 



OPERAND 



1 


10 


16 




QT,Y.L 1 . . 






Q^5| 1 1 1 1 1 1 1 1 1 1 ■ 1 1 1 1 1 1 1 1 1 1 i 1 1 1 1 1 


QT.Y.2; , . . 






QU^, . i . . . , 1 . , , , 1 , 


1 1 1 1 1 1 1 1 1 1 1 1 1 J 



Operands Before 

QTYl 
QTY2 

Operands After 

QTYl 
QTY2 



0000001 22C 
001 23C 



0000001 D 
001 23C 



Condition Code Setting 

1 (result is negative) 
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ZERO AND ADD PACKED DECIMAL 



LABEL B OPERATIONS OPERAND t 
1 10 16 


1 1 1 1 1 1 1 








^I^lllf iQ^I^L. 1 ,1 ,1 I I 1 1 1 1 1. J 1 1 1 1 1 1 I...I 1 1 1 1 


1 1 1 1 1 1 1 




1 1 1 1 




1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 t 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 




. 




W^.(,6.).,Aiy^T.l.(.4.) 


1 i 1 1 1 1 1 




1 1 1 1 




. 1 1 1 1 1 .1 1 1 1 1 1 1 1 1 ] 1 1 1 1 1 1 1 1 1 1 1 1 1 


_i_i__L_i_i_ 




1 . , . 




I 1- 1 1 1 I 1 1 i. J_ 1 _l. 1 .1. .1 1 I 1 L J _L 1 1 1 1 1 1 1 1 1 



Format 
Example 

A. FUNCTION 

The storage location specified by 0P1 is cleared to zero and then the 0P2 data (packed format) is added to 
OPl. The result of addition determines the condition code. 

B. RULES 

1. The operands may have different lengths. However, the first operand should be longer than the second operand. 

2. The maximum length of operands is 16 bytes. 

3. The second operand must be in packed format. 

4. Operands may overlap if their rightmost byte locations coincide or if the rightmost byte of the first operand 
is to the right of the rightmost byte of the second operand. 

5. ZAP is used when OPl in a decimal instruction (e.g., AP, MP) is too small to hold the result of the operations. 
The operand is placed into a larger field through the use of a ZAP instruction. Then the new larger field 
is used as the first operand. 

C. APPLICATION 

1. Processing is from right to left. 

2. The second operand is unaltered. 

3. Only the second operand is checked for valid sign and digit codes. 

4. A second operand that is longer than the first causes overflow. 

5. When high-order digits are lost due to overflow, a zero result has a positive sign. 

6. The condition codes are set as follows: 

0 - Result is zero 

1 - Result is less than zero 

2 • Result is greater than zero 

3 - Overflow 
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D. EXAMPLE 



LABEL « OPERATIONS OPERAND « 
1 10 16 


1 1 1 1 1 1 1 








WW,(,6,),,,W,1,(,4,), , , . , 


1 1 1 1 1 1 1 




1 , , , 




1 1 1 1 L. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ■ 1 I 1 1 1 1 


i i i,J— 1 I i 




1 . . . 




1 1 1 1 1 1 1 1 1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 



Storage Allocations 



LABEL « OPERATION « OPERAND t 
1 10 16 










1 ■ . . ■ 1 1 










Q-^^i 1 1 1 ■ 1 1 I ■ 1 1 1 1 1 1 1 ■ i 1 1 1 1 1 • ■ 1 • 1 













Operands Before 

WAMT 
AMT1 

Operands After 

WAMT 
AMT1 



35792485354D 
1233663C 



00001 233663C 
1233663C 



Condition Code Setting 

2 (result is positive) 
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MULTIPLY PACKED DECIMAL 



LABEL 



« OPERATION « 
10 16 



OPERAND 



1 1 1 1 1 * 1 


MP. . . 


0Pil.#iQPi2, 1 1 1 1 , , , 1 1 , , , 1 1 , , 1 1 1 1 1 1 1 


1 1 1 1 i 1 1 


1 1 1 1 




1 1 1 I I 1 1 




wmrAA) .,'m!,2,{2) 


1 1 1 1 1 1 I 


1 I < 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 i 


1 1 1 1 1 1 1 


1 , , , 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 . 1 I 1 J 1 1 1 1 1_L 1 



Format 
Example 

A. FUNCTION 

The operand specified by 0P1 (multiplicand) is multiplied by the operand specified by 0P2 (multiplier). The signed 
product is placed in the OPl location. 

B. RULES 

1. Both the multiplier and multiplicand must be in packed form. 

2. The second operand (multiplier) must be shorter than the first operand (multiplicand) and must not exceed 
eight bytes in length. 

3. The maximum length is 16 bytes (one length is specified for each operand. 

4. The multiplicand must have high-order zero bytes equal to the number of bytes in the multiplier field. 

5. Operands may overlap if their rightmost bytes coincide. 

C. APPLICATION 

1. Instruction operates right to left. 

2. All signs and digits are checked for validity. 

3. The second operand is unaltered unless operands overlap. 

4. Overflow cannot occur. 

5. The condition code remains unchanged. 

6. The sign of the product is determined by the rules of algebra, even if one or both operands are zero; i.e., 
minus zero is a possible result. 

7. The product is in packed format. 
EXAMPLE 



LABEL 



t OPERATION « 
10 u 



OPERAND 



1 1 1 1 1 1 1 








W/W,(,6.),,AMir2(2) , . , , , , 


1 ■ 1 1 1 1 1 




1 , , , 




1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 




1 1 . . 




1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 1 1 
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Storage Allocations 



LABEL 



t OPERATIONS 
10 16 



OPERAND 











CX46 1 1 1 1 1 1 1 1 1 1 1 1 1 J 1 1 .1 1 1 1 1 1 1 r 1 1 1 


m^2, 1 . . 




DS . . 




CL2 . 1 . . . 1 1 , , , , 1 , , . , 1 . . . . 1 , , , , i 


1 1 1 1 1 1 1 




i 1 i 1 




1 1 1 1 i 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 



Operands Before 

WAMT 
AMT2 



00001 233665C 
012c 



Operands After 

WAMT 
AMT2 



00014803980C 
012c 
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MOVE CHARACTER 





LABEL 




OPERATIONS 


OPERAND 


t 




1 


10 


16 




Format 






!y\yc. , 




QP.1.'.PP.2. . . 1 




1 1 1 1 1 1 1 










Example 


.J..I_U. 1 1 J 1 








^AK;R(,7)„ABfvE, 




1 1 1 1 1 1 1 




1 . . , 




1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 




1 1 11 Lj I 




1 . . . 




' 1 1 1 1 III 1 1 i i 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 



A. FUNCTION 

The source field specified by 0P2 is moved into the destination field specified by 0P1. 

B. RULES 

1. One length indicator is specified for both operands. 

2. A maximum of 256 bytes may be moved with one instruction. 

3. One character (e.g., a space) may be used to clear an entire field, if the first operand field starts one character 
to the right of the second operand field. 

4. Overlapping of fields is permitted. 

C. APPLICATION 

1. Bytes are moved one at a time in each field. 

2. Movement is from left to right. 

3. The number of bytes moved is determined by the implicit or explicit length of the first operand. 

4. The bytes being moved are not inspected or changed. 

5. The second operand is not altered, unless operands overlap. 

6. The condition code is unchanged. 

D. EXAMPLE 



LABEL 



« OPERATION t 
10 16 



OPERAND 



.1 III 1 1 1 




MVC , 




DOG (,3i) , f.CATi , , , , 1 , , , , 1 , , , , 1 , , , , 1 


1 1 1 1 i 1 1 




1 1 1 1 




J J 1 1 1 L 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 r 1 1 1 



Storage Definitions 



t OPERATION t 
10 16 



OPERAND 



DQG , 1 , , 






Q^^i 1 1 1 1 1 1 1 1 1 1 1 1 I 1 1 1 1 1 1 1 1 1 1 r 1 J 1 


qAT. , , . . 




Eiq . , 


x\gf,0M2c\ 


1 1 1 1 1 1 1 




1 . . . 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 L 1 1 1 1 1 1 


1 1 1 1 i 1 1 




1 . . . 


1 1 1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 I 1 1 1 1 
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Operands Before 



DOG 0000 1C 
CAT 00002C 



Operands After 



DOG 00002C 
CAT 00002C 
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MOVE IMMEDIATE 



LABEL 



« OPERATION « 
10 16 



OPERAND 



.till l...i 1 




mx , 




Qp.l.Qp,:^ ,, 1 .... 1 , 1 


1 > J 1 1 1 1 




1 , , . 




_J 1—1 l_l 1 U-J 1 1 1 L_l l_l I—I l_l I—I 1 — 1 1 1 — 1—1 1— 1 — L 


1 1 1 1 1 ..1 , 1 .. 




mi , 




sii>Qi:^q'.A' 1 . . , , 1 , , , , 1 . , , , 1 


1 1 1 1 1 1 1 




1 . . . 




'I'll''' 'III' i_J I..I. 1 1 1 1 — 1 — 1—1— J — 1—1 — 1—1 — L 


1 L 1 1 1 J i , 




1 . . . 




1 1 1 1 1 1 1 -L- 1— 1— 1— 1 1 ^.i— 1- 1 1 1 1 1 1 1 .1 1 1 1 1 1 1 



Format 
Example 

FUNCTION 

One byte of immediate data is stored in the main memory location specified by the first address (0P1). The 
immediate data is specified by the second operand of the instruction (0P2). 



B. RULES 



1. The second operand, called a self-defining value, may be written as a single character in quotes preceded 
by a C (e.g., C'A') or as two hexadecimal digits in quotes preceded by the letter X (e.g., X'CI'). 

2. The first operand field is a one-byte receiving field. 

3. The length indicator is never specified since this instruction only operates on one byte. 

4. The condition code setting is not affected. 
EXAMPLE 



LABEL 



t OPERATION « 
10 16 



OPERAND 



1 1 1 1 1 1 1 




^I, I 




1 1 ' 1^1 1 r 1 1 1 1 I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 




1 , . , 




1 I 1 J 1 1 1 1 1 1 1 1 1 1 1 I 1 1 1 1 1 1 1 1 1 . r r 1 1 


1 1 1 1 1 1 1 




1 1 1 1 




' 1 1 ' 1 ' 1 ' ' 1 j ■ f I 1 1 ' ' 1 1 1 ' ' 1 1 1 1 1 1 1 



Storage Definition 



LABEL 




OPERATION « 


OPERAND 






1 




10 


16 








S,P,0,T, 1 , , 




D|S. , , 


|CL3. . , 


1 1 1 1 1 1 1 1 1 1 I 1 J 


1 1 1 1 1 1 1 1 1 


1 1 1 


1 1 1 I 1 1 1 






1 1 1 1 1 1 1 ■• 1 1 1 1 1 1 1 1 1 1 • 1 1 1 1 ■ 1 1 1 1 1 1 



SPOT (1st operand) Before 
00C2C3 



SPOT After 
C1C2C3 
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COMPARE PACKED DECIMAL 



LABEL « OPERATIONS OPERAND « 
1 10 16 


1 1 ■ 1 1 1 1 


qp. . , 


0P.1.5.0|P,2, . , 1 , , . 1 , , . . 1 


1 I 1 1 1 1 1 


1 , , 1 


1 1 1 1 1 1 1 t 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 


QPf 1 1 


B^l,,{^),„cM\\^J , , 1 , , ■ , 1 . , ■ 


1 1 t 1 1 1 1 


1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 1 1 



Format 
Example 

A. FUNCTION 

The operand specified by the first address is algebraically compared with the operand specified by the second 
address. The results of the comparison determine the condition code. 

B. RULES 

1. Both operands must be in packed decimal format. 

2. Operands may be of different lengths. 

3. The comparison is albegraic. 

4. If operands overlap, their rightmost byte locations must coincide. 

5. The maximum length for either operand is 16 bytes. 

C. APPLICATION 

1. Comparison is from right to left, taking into account the sign as well as all the digits of each field. 

2. If fields of unequal length are compared, the shorter field is extended with high-order zeros. 

3. Plus zero and minus zero compare equally (no distinction is made). 

4. The condition code settings are as follows: 

0 - Operands are equal numerically 

1 - First operand algebraically less than 2nd operand 

2 - First operand algebraically greater than 2nd operand 

3 - Not used. Overflow cannot occur. 

5. Neither operand is altered. 

D. EXAMPLE 



LABEL 



« OPERATIONS 
10 16 



OPERAND 



.1 1 1 1 1 1 1 




OP, . , 


BAlj,(.4i),/,CHJQ(,3,), , 1 , , , , , , , . 1 


1 1 1 1 1 1 1 




1 , , . 


1 1 1 1 1 1 1 J 1 1 1 1 1 1 1 1 1 1 • 1 1 1 ■■ 1 ,. 1 , 1 


1 1 1 1 1 1 1 




i . , . 


' ' 1 1 1 J-l— 1— 1— 1— L- 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
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Storage Definitions 



LABEL 


t 


OPERATIONS 




OPERAND 


t 


1 




10 




16 






BA^ , 1 . , 








^J-'A, 1 1 1 1 1 1 1 1 I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 I 1 1 1 


QH^ . 1 . . 








^X'l^i 1 1 1 1 ■ 1 1 1 I 1 ■ i 1 1 1 ■- 1 1 1 1 1 1 ■ I 1 1 1 



Operands Before 

1st OP. BAL 0912394C 

2nd OP. CHK 12394C 

Operands After 

1st OP. BAL 0912394C 

2nd OP. CHK 12394C 



Condition Code Setting 

2 (1st operand is greater than second operand). 



COMPARE LOGICAL 



LABEL 



« OPERATIOHt 
10 16 



OPERAND 



1 1 1 




1 1 


qL,q , 


O.P,l.,P,P,2, ,,,,,,, 


, , , , 1 








1 1 1 


1 






1 1 






1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 


. 1 








L_i 1 


1 














1 1 


1 1 




1 1 1 




III 


i— 1 






1 1 


1 1 i 




r 1 t 1 1 1 1 L 1 1 1 1 1 1 


1 1 


1 1 




1 1 1 




1 1 1 








.J_l_ 


1 . . 




1 1 1 1 1 1 1 1 1 1 1 J_ 1 I 


1 1 


iJ 




1 1 1 




1 1 1 



Format 
Example 

A. FUNCTION 

The operand specified by 0P1 is logically compared with the operand specified by 0P2. The result of the comparison 
determines the condition code. All bits are processed as part of an unsigned binary quantity. 

B. RULES 

1. Only 1 length field is used (0P1). 

2. An operand of up to 256 bytes may be compared with another operand of the same length unpacked (EBCDIC) 
characters. 

3. Operands may be in any format. 

4. The operation may be used for alphanumeric comparisons. 

C. APPLICATION 

1. Processing is from left to right. 

2. Instruction terminated on inequality, or when the operands are exhausted. 

3. Both operands are unaltered. 

4. The condition code is set as a result of the comparison. 



Condition Code Settings 



CONDITION CONDITION CODE 
Operands equal 0 
1st operand less than second operand 1 
1st operand greater than 2nd operand 2 
Not used 3 
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EXAMPLE 



LABEL t OPERATION « OPERAND t 

1 10 16 



1 1 1 1 1 1 1 








l^C,T.(,8,),„T^,T , , 


1 1 1 1 1 1 1 




1 . 1 1 




1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 I 1 1 1 1 1 1 -1— 1 — L 



Storage Definitions 



LABEL 




OPERATION t 




OPERAND 


t 


1 




10 




16 






mQ% , . , 




PS. . , 




. 1 .... 1 .... 1 .... 1 .1 


T^qr, , , , 








^^>^> . 1 , ■ . . 1 . . . 1 ■ ... 1 .... 1 



Operands Before 

1st OP. MACT F0F0F8F4F3F1F2C4 

2nd OP. TACT F7F5F8F4F3F1F2C4 

Operands After 

1st OP. MACT F0F0F8F4F3F1F2C4 

2nd OP. TACT F7F5F8F4F3FTF2C4 

Condition Code Setting 

1 (first operand less than second operand). 



COMPARE LOGICAL IMMEDIATE 



Format 
Example 



LABEL 



ft OPERATION ft 
10 16 



1 1 ■ 1 1 1 1 




CiLI. . 




DP.1.,DP2. . . 1 . . , , t . . . I .... 1 


, 1 1 1 1 1 1 1 




i , , . 




1 I r 1 1 1 1 1 1 1 J L 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 r 1 1 










S,P.O,T,,P,',C,' 1 , . , 







1 . . . 




1 1 . i 1 .... 1 1 i 1 1 1 1 1 1 1 1 1 1 .. 1 .... 1 






1 . . ■ 




1 i 1 1 1 1 1 .. 1 I I . 1 1 1 1 1 1 1 1 . I . 1 1 I 1 I 1 



A. FUNCTION 



One byte of immediate data (0P2) is logically compared with one byte in memory. The address of the byte 
In memory is specified by 0P1. The immediate data is specified by 0P1. The immediate data is specified by 
0P2 of the instruction. The result of the comparison determines the condition code. The byte comparison is according 
to absolute EBCDIC coded values and an unsigned binary quantity. 



B. RULES 



1. 0P2, called a self-defining value, maybe written as a single character in quotes preceded by a C (e.g., C'A') 
or two hexadecimal digits in quotes preceded by the letter X (e.g., X 'C3). 

2. The first operand field is a 1-byte field. 

3. The length indicator is never specified, since this instruction only operates on one byte. 

4. The first operand field does not have to be at an even location. 

5. The first operand may be in any format. 
NOTES: 

1. Condition code settings are the same as those for CLC. 

2. Both operands are unaltered. 
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EXAMPLE 



LABEL « OPERATIONS OPERAND t 

1 10 16 



1 1 r 1 1 1 1 




ZhX, . 




^PPr^lfPl Pi 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 




1 , < , 




1 1 1 1 1 ■ 1 ■ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 I 1 1 


i 1 1 1 1 r 1 




1 1 1 1 




1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 



Storage Definition 



LABEL t OPERATtOHt OPERAND t 

1 10 16 



SPOT , 

1 1 1 1 1 ', 1 




Dp, , , 




^ — 1—1 — I— 1 — 1 .1. 1 .1. J 1 i_i i_J i 1 1 \ 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 J 1 1 ] 




1 . . . 




_i — 1 — 1 — 1 — L .1 . 1 I 1 1 1 1 1 1 1 1 1 1 I 1 I 1 1 1 1 1 1 1 1 1 



SPOT Before SPOT After 

C5 C5 



Condition Code Setting 

2 (first operand (SPOT) is > immediate field C'C). 



BRANCH ON CONDITION 



Format 
Example 



A. FUNCTION 

Branching instructions test the setting of the condition code indicator and branch to another location in the program 
based on the particular setting being tested. 

B. RULES 

1. These instructions may be used after arithmetic instructions; e.g., if result is positive, branch to specified 
location. 

2. They may be used after compare instructions, e.g., if first operand is greater than second operand, branch 
to specified location. 

C. APPLICATION 

15 - Branch on all conditions 

8 - Branch if both operands are equal (CC - 0). 

2 - Branch if result is positive (CC - 2). 

4 - Branch on minus (CC - 1). 

D. EXAMPLE 
Flowchart 



M>T 

r 

Routine A 

t M=T 
Routine B 



LABEL t OPERATIONS OPERAND t 

1 10 16 





3C , . 


QP.lf.Q^.^ 




1 . . < 


■ . ■ ■ 1 , . ■ ■ 1 , ■ . . 1 . , ■ . 1 . , , , 1 , , , , 1 


1 1 1 1 1 1 1 .. . 




1 


_J L_L_J 1 1 1 


1 < 1 1 


1 1 1 1 1 1 1 1 1 ) 1 1 1 1 1 1 t 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 . 


1 . . . 


. J..1 1 1, 1 i_l I 1 1 1 1 1 1 i t 1 1 1 1 1 1 --1 i 1 L 1 t i 1 




Routine C 
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Coding 



LABEL t OPERATIONS OPERAND « 
I 10 16 










,(.7.).,.W.T. , 


1 1 1 1 1 1 1 








2 ,RTEA. 


1 1 1 1 1 1 1 








8,/,I^TP|B, , , , 1 , , , , 1 , , , , 1 , , , ., 1 


..J.,i..i.-i.l. .1 1 








4,,,I^TBQ , . , 1 , . 1 , , , 1 


1 1 1 i -1-1 J 




III! 




J_L_I I L_L. 1 1 1_1_LJ ■ I 1 1 1 1 1 1 1 1 1 L 



Note: 8 can be omitted if it is desirable to "fall through" on an equal condition and continue straight-line 
processing. 
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BRANCH AND LINK 



Format 
Example 



LABEL 




OPERATION t 


OPERAND 


-b 


1 


10 


16 




1 1 1 1 1 1 1 




BiAI» , 




0P.1,.QP.2 . . 1 1 . . . , 


1 1 1 1 1 1 1 




1 , , , 




1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ■ 1 ■ 1 t 1 1 


1 1 1 1 1 1 1 




BiAI* , 




8i,,SUiBiR 1 1 1 1 1 1 1 1 1 1 1 1 





1 1 1 1 1 1 1 




1 , . . 




1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 . , . , 1 , . , , 1 


1 1 i 1 1 1 1 




1 1 1 1 




'III -1 1 i 1 L 1 1 1 1 1 1 1 1 1 


1 .... 1 .... 1 



A. FUNCTION 

To permit a series of instructions (called a subroutine) to be written once and executed several times (subroutines 
and user program may be tied together). 

B. RULES 

1. Operand (0P1) specifies a register number (8 through 15) that stores the address of the instruction to be 
performed after returning from the branch subroutine. 

2. 0P2 is the label of the branch subroutine. 



A BAL instruction may be used to branch to a subroutine that will: 
clear an area 
read data 
pack and add 
check tables 
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STORE HALFWORD 



Format 
Example 



A. FUNCTION 

STH places the contents of the register specified by the 0P1 address into the halfword specified by the 0P2 
address. 

B. RULES 



1. 


Data is stored on an even numbered address. 




2. 


Goes from main storage into a register. 




3. 


The receiving address is a register (8 through 15). 




4. 


Boundary alignment is required. The. sending field must be a 


memory location. 


5. 


Data is in binary; may be defined by an address constant or 


as instruction address. 


6. 


The contents of a halfword will be loaded into the register. 




7. 


Does not alter CCI (condition code indication). 





LABEL t OPERATIONS OPERAND t 

1 10 16 



1 1 1 1 1 1 1 




, 




QPXrQ^,2, ,,,,,,, , 


1 1 1 1 1 1 1 




1 1 1 1 




1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 










U..^.Q(^+.2. , 


1 1.1 1 1 1 1 




1 . . . 




1 1 I 1 1 1 1 1 1 1 I 1 1 1 1 1 1 1 1 i 1 1 t 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 




1 1 1 1 




Jill ±_l_l 1 1 1. .L_l__l 1 1 1 1 1 1 1 1 1 1 1 1 I 1 _1 _L L 
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D. EXAMPLE 



To write the instructions necessary to interrupt a program flow use a subprogram (labelled PCLR) to clear print 
buffer. After clearing buffer the routine will refer to interrupt. 



LABEL t OPERATION is OPERAND t 





1 


10 


16 


1 


1 1 1 1 1 1 1 






1,4„,P,CM , , 1 , , , , 1 , , , , 1 


2 


1 1 1 1 1 1 1 


^P, , , 




G. W, 1 1 


3 


1 1 1 1 1 1 1 


. , 




1 1 1 1 1 1 r 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 r 1 1 1 1 1 1 1 


4 


1 1 1 1 1 1 1 


I', , , 




1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


5 


-L-JL. 1 1 1 1 1 - 


r, , , 




1 .1 1-1 1 1 1 1 1 1 l-L.L.l .1 I 1 1 1 1 1 1 1 1 i L 1 .1 1 1 


6 


^,cl,^ , , , 


S,TH 




14,PCOT+2 , , , , , 

1 1 'i 1 1 J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


7 


1 1 1 1 1 1 1 






PRT,X'4p^' 1 , , I 1 

1 1 1 ' 1 1 1 i'^ I 1 1 1 1 1 1 1 1 1 1 1 1 1 I 1 1 1 1 1 1 1 1 


8 




ly^yc ^ 




PRT+L(119),,PRT , , , , 


9 


P.QO.T. , , . 


, , 




l.S./.P'. 1 , , , , 1 , . . . 1 . . . . 1 . , . , 1 , . , .• 1 




1 1 I 1 i 1 1 


1 , > , 




1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 I 1 




1 1 1 1 1 1 1 


1 • . 1 




J 1 1 1 1 1 1 1 1 1 1 1 1 1 i 1 1 I 1 1 1 1 1 1 1 1 1 1 1 1 



(Line 1) Store address of next instruction (line 2) in register 14, Branch to PCLR (line 6). 
(Line 6) Store return address (line 2) in register 14;process next instructions in line. 
(Line 9) Branch unconditionally to line 2 . 
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EDIT INSTRUCTION 



Format 



Example 



LABEL 



t OPERATION « 

10 u 



OPERAND 



1 1 I 1 1 1 1 


m , , 


0,P.1,,.QP,2. 


1 1 1 1 1 1 1 


1 , , < 




1 1 1 1 1 1 1 


1 . . . 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 J 1 f 1 




l^SK(9,),,,I)ATA 


1 1 1 1 1 1 1 . 


1 1 , 1 


1 I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 r 1 1 I 1 I 1 1 1 1 



A. FUNCTION 



The purpose of the Edit instruction is to produce easy-to-read printed documents by inserting the required 
punctuation and graphic symbols. 



B. RULES 



1. Data to be edited must be packed in decimal form. 



2. Operation will change packed decimal field called source field to EBCDIC (zoned format) and insert the 
necessary punctuation characters, i.e., dollar signs, commas, decimal points, asterisks. 

3. Pattern for editing is called the edit mask and is set up as a hexadecimal constant by a DC statement. If 
an edit mask is to be used more than once, it must be moved to a working storage area before each use 
otherwise the editing function will destroy the mask. 



4. Result of edit replaces 1st operand (0P1) which is the mask field. 



5. Construction of mask pattern is as follows: 



a. Number of bytes in mask must be at least the number of significant digits which will print when the 
format Is converted from packed to zoned; e.g., for four packed bytes, the corresponding mask must 
contain at least seven digit select characters. 



b. First byte of mask in hexadecimal configuration is a fill character. 



Examples: 



blank (X'40') 
dollar sign (X'5B') 
asterisk (X'BC) 



c. Commas and decimal points are inserted as specified in mask: 

comma (X'6B') 
decimal point (X'4B') 
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Following control characters are used: 

(1) Digit Select character (X'20') is placed in mask where it is desired to insert a digit from the packed 
field. Digit is inserted unless it is a leading insignificant zero and a Significance Start character has 
not been encountered previously. 

(2) Significance Start character (X'21') serves same function as Digit Select character but has one 
additional function; it specifies that all of the following digits are to be inserted from the packed 
field even if one or more leading zeros are still present. 



EDIT INSTRUCTION EXAMPLES 



SEE NOTE BELOW 



0P2 



(BEFORE EDIT) 0P1 



(AFTER EDIT) 0P1 



FILL CHARACTER 
DOLLAR SIGN — 



LABEL 

I 


ft 


OPERATIONS OPERAND I 
10 16 \ 


1 1 1 1 1 1 I 






JQ^1.„QP,2^^. . . . 1 








h 1 


2 


3 : A 


1 5 : 6 7 1+1 



5B I 20 1 20 6B 20 20 21 4B 20 20 



V w ^r 



|5B| F1 I F2 


66 


F3|F4 


F5 


4B 


F6 


"I 



I H U M n I 

J 1 2 



3 4 5 



6 7 



PACKED DATA FIELD 



EDIT PATTERN 
(MASK FIELD) 



UNPACKED FIELD 



PRINTED RESULT 



0P2 

(BEFORE EDIT) 0P1 
(AFTER EDIT) OPl 



FILL CHARACTER 
BLANK SPACE 



0; 0 


0:0 0 11 2 ; + 






40 20 20 


6B 20 20 21 4B 20 20 




, , , , ,t,i,t, 


40 40 40 


40 40 40 40 |4B 1 F1 I F2| 


^ A A 


1 \ \ 

A A A A . 12 



PACKED DATA FIELD 
MASK FIELD 

UNPACKED FIELD 
PRINTED RESULT 



(The symbols A or b are used by programmers to indicate blank spaces 
when checking number of spaces in the result.) 



0P2 

(BEFORE EDIT) OPl 
(AFTER EDIT) OPl 



FILL CHARACTER 
ASTERISK 



0!0|0!0|0!0|l 1 + 

1 1 \\\ 



5C 20 1 20 I 6B 20 21 20| 4B| 20 20 



i I I I i 

5C| 5C|5C|6C|5C| 5C| F0|4B| F0|m 

w M n u n 

« ***** A 

J 



0 1 



PACKED DATA FIELD 
MASK FIELD 

UNPACKED FIELD 
PRINTED RESULT 



NOTE 

Edit control hexadecimal characters: 

Fill character (40, 5B, 5C, etc.) 
Digit Select Character (20) 
Significance Start Character (21) 
Insert characters (68, 48) 
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HALT AND PROCEED 



Format 
Example 



LABEL 



II OPERATIONS 
10 16 



OPERAND 



1 1 1 1 1 1 1 








QP.X . 1 . . , . 1 , . . . 1 . , . , 1 . , . , 1 . , . . 1 


p 1 1 1 1 1 1 








. . , . 1 , , , , 1 , . , . 1 , . . , 1 . . . . 1 . . , . 1 


1 1 1 1 1 1 1 




, 




1 


1 1 1 t 1 ) 1 




I , , , 




1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 I 1 


I 1 1 1 1_1._L. 




1 , , , 




i 1 1 1 1 i 1 1 1 1 1 1 1 1 i 1 1 1 1 1 1 I 1 1 1 1 1 I 1 L 



A. FUNCTION 

Stops the processor and displays the 0P1 address in the Halt/Display indicators on the control panel. 

B. RULES 

1. The label field not used. 

2. The operation is HPR. 

3. 0P1 is usually expressed in 1 to 4 hexadecimal digits. 

4. 0P2 is 0 in all cases. 

5. Base Displacement is assumed if 0P1 content exceeds X'7FFF', 

6. Forms: 

HPR X'7FFF' 
HPR C'??' 
HPR 2075 
Suggested place in coding 



LABEL 



t OPERATIONS 
10 



OPERAND 







I^AP 1 . , . . 1 , , . , t , , . , . , , , . 1 , , . , 1 


.1 1 1 1 i 1 1 




1 .... 1 ... 1 .... 1 .... 1 


1 1 1 1 1 1 1 


^m . 


i^^^^'. - . 1 1 .... 1 


_L 1 ' 1 1 1 1 1 




BEGN ,,,,,, 




1 . , . 


- . 1 i 1 1 i i ■ I 1 ■ ■ ■ ■ 1 1 i ■ ■ 1 . ■ i I 1 . i . . 1 


1 1 1 1 1 1 1 


III. 


- 1 1 1 1 1 1 1 i 1 1 I i ■ ■ 1 ■ ■ ■ . 1 ■ ■ ■ . 1 ■ ■ ■ ■ f 
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ERRATA 

9000 CARD ASSEMBLER 
PROGRAMMED INSTRUCTION COURSE 

Book 3 - BAL Application 



Prepared by: 

Systems Education Department 
Univac Education Center 
P.O. BOX 1110 
Princeton/ N.J. 08540 




February 1974 
UE-686.2B 



COMPUTER SYSTEMS 



ERRATA 



UNIVAC 9000 CARD ASSEMBLER 



PROGRAMMED INSTRUCTION COURSE 

Book 3 - BAL Application (UE-686.2B) 

NOTE: CORRECTIONS, DELETIONS, AND CHANGES ARE TO BE PERFORMED 
AS AN EXERCISE UPON COMPLETION OF BOOK 3, 



The Marketing Sales Report Problem which begins on page 3-3 
has coding and flowchart errors: 

1. When SAVE = EPMN and CNTR = FIVE, a branch to FOF is 
executed. As a result, the card that was read before 
the end of page condition (FOF) was sensed, is lost. 

2. Refer to figure 3-3, pg. 3-23/24, Marketing Sales Report 
Flowchart. Find the error in the flowchart and make the 
necessary corrections. Then check your corrections 
against those on page E-3 . 

3. After corrections have been made in figure 3-3, make 
corrections in the coding to reflect the flowchart 
corrections. 

4. In the Marketing Sales Report Program, two procedures were 
used for Printer Overflow. The Programmer coded for an end- 
of-page Condition and also defined PROV=FOF in the DTF 
statements. Only one procedure should be used. 

5. Page 3-7; Define Input/Output Devices to be used by program. 



Delete line 9: 



Column 16 PROV=FOF 
Column 72 X 
DEFINE INPUT/OUTPUT DEVICES TO BE USED BY PROGRAM 



LABEL ft OPERATION V OPERAND 

1 10 16 


72 


READ 1 . . 




nT.F.GR 




ED.FA=iE.QJ. .. 1 , ... 1 i 


K 








1 1 1 1 




iaAl.=iRB.UF.,i . . , , 1 , . . . , , 


K 
K 




1 1 1 1 1 1 1 




i 1 1 1 




I,T3J.^T3,I^D.„ I 1 


1 1 1 1 i 1 1 




i . . . 




iyiO,QE=^T.RANS i i 






1 1 J 1 1 1 1 




1 1 1 1 




1 I 1 I 1 1 -i- 1 1 1 1 1 1 1 J 1 1 I 1 1 1 






P,W. 1 , . 




C|T,F,P,P 




BJ^S,Z=,1.3,2.,. , , 


K 




1 1 1 1 1 1 1 




1 . . . 




qN.TA=,Y;E.S.,. , 


X 




1 1 1 1 1 1 1 




1 . . , 




pi^q=,2.,. , 






1 1 1 1 1 1 1 




1 1 . 1 




PRQV-,FOF, , i \ r 

1 1 1 1 1 [ 1 1 'l 1 1 1 1 1 1 1 1 1 1 1 1 






. I ..L-l 1 1 1 1 








FONT=|63 1 , ,1 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 L 






1 1 1 I 1 1 1 




eJnd _ 




1 1 1 1 1 I 1 J 1 I 1 1 1 1 1 1 1 1 1 1 1 







__L__ 



I dtp's I 
I I 



E-1 



6, Page 3-8: 

Delete coding line 135: 
Colxamn 10 ENTRY 
Column 16 FOF 
SUPPLY SYSTEM WITH LABELS OF SUBPROGRAMS 



LABEL 



t OPERATION « 

10 16 



OPERAND 



1 1 1 1 1 1 1 




E|N.T.^Y 




^B.l^F, 1 , , , , 1 , , , , 1 , , . . 1 , , , 


1 J 1 i 1 




e;nt,r,y 




^Q*^! 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 




WW 




PQP 1 

1 1 1 1 1 1 1 1 J 1 1 1 1 1 1 1 1 1 1 i 1 1 1 


1 1 1 1 1 1 1 




1 . . < 




r 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 



ENTRYS 

— r— 



125 
130 
4di. 



Change explanation of coding to read: 

RBUF and EOJ are the labels of s\ibprograms within 
the user program. 



Iniort coding flow 146 

•fter OPEN READ 

OPEN PRINT coding flow 145 

before CLEAR 

COUNTER coding flow 150 



USING 




EXTRNS 
ENTRYS 



BEGN 



0. 



y L_„..__ 

/ READ A / 146 
/ ^^^''^ L 



OPEN READ 
OPEN PRINT 



Delete coding flow 210 



CLEAR 
COUNTER 







CLEAR 
PRINTER 
AREA 






ADVANCE TO 
HOME PAPER 
POSITION 






ADD 1 TO 
PAGE 






MOVE PAGE 
TO PRINTER 
WORK AREA 






MOVE HDRS 
TO PRINTER 
WORK AREA 






SPACE 1 






PRINT 



100 



106 
110 



115 
120 
126 
130 
135 



140 
145 



160 



1S5 
160 



165 



170 



176 
180 



185 
190 
185 



200 



205 



o 



1 



MOVE MASK, 
THEN TOTAL 
SALES TO 
PRINTER 
WORK AREA 



CLEAR 
PRINTER AREA 



MOVE 
EMPLOYEE 
NUMBER & 
NAME TO 
PRWK 



216 
220 



226 
230 



270 
276 







PRINT 






ADD 1 TO 
COUNTER 



280 



285 







MOVE 
EMPLOYEE 
NUMBER 
TO SAVE 








PACK SALE 
TO A WORK 
AREA 







cntr:five — Wf^^^ 



235 



ADD SALE 
(PACKED) 
TO TOTAL 
SALE 



240 



245 





MOVE IN 
MASK. THEN 
FINAL TOTAL 
TO PRINTER 
WORK AREA 



MOVE IN 
■FINAL TOTAL' 

(HEADER) 
TO PRINTER 
WORK AREA 



ADD TOTAL 

SALE TO 
FINAL SALE 






MOVE MASK, 
THEN TOTAL 
SALE TO 
PRINTER 
WORK AREA 






PRINT 






CLEAR 
PRINTER 
WORK AREA 
TO ZEROS 







310 



315 
320 



326 



330 
335 



340 
345 



MOVE IN "END 
OF FISCAL 

YEAR" 
(HEADER) 






PRINT 






CLOSE READ 
CLOSE PRINT 







375 



380 



38S 
390 



565 



360 




Figure 3-3 Marketing Sales Report Flowchart 



3-23/24 

E-3/E-4 



7. Page 3-8: 

Insert coding line 146 after coding line 145 

Column 10 GET 

Col\iinn 16 READ, CARD 



READ A CARD 



LABEL t OPERATIONS 

1 10 16 



OPERAND 



1 1 1 1 1 1 1 








mm^^cAm , , . . , 


1 1 1 1 1 1 1 




1 . . . 




1 I 1 1— 1 — l~L 1 1 1 .1 1 1 1 1 1 L. 1.1 i 1 1 1 



Reads a card and places data into area defined as CARD. 



READ A 
CARD 



146 



ACTIVATE CARD READER, PRINTER 



LABEL 



ft OPERATIONS 
10 16 



OPERAND 



BEGN i 1 1 








RRAn 1 1 1 ■ 1 1 1 1 1 1 1 1 1 1 ■ 1 1 1 1 


1 ■ 1 1 1 1 1 








P,RNT, 1 . . ■ ■ 1 . . . . 1 . . , , 1 . . . 


I 1 1 1 1 1 1 








1 1 I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 



OPEN READ makes the file named READ available for sending input. 
OPEN PRNT makes the file named PRNT ready to receive output. 




BEGN 



OPEN READ 
OPEN PRINT 



140 
145 



CLEAR PRINTER LINE COUNTER TO ZERO 



LABEL 




OPERATION t 


OPERAND 


1 




10 




16 


FOF 1 








^Ti^.T,^i;H-t,4. , , , , 


I 1 1 1 1 1 i' 




i , , . 




1_ L 1 1 J.. 1 1 1 1 1 1 1 1 1 1 I 1 1 1 1 1 1 1 



Moves zeros from storage areaTZER+4to the two-byte area defined as 
CNTR. 




150 



E-5 



8. Page 3-11: 

Delete coding line 210: 

Column 10 GET 

Colimin 16 READ, CARD 




9. Page 3-18: 

Delete coding line niunber 9: 
Coliamn 16 PROV = FOF, 
Column 72 X 



AMSBMBLBR COOINO FORM 



PBor.BAM MACRO CALL CARDS - programmer oATf pace or pace* 



LABEL 1 

1 


OPERATION* 
10 


OPSRAMO 

U 


% 


COMMINTI 




71 




10 


HEAD 1 . . 1 






I^QF.A^&QJ,»i i 1 . . . 1 




1 1 ■ ■ 1 1 I i • 1 1 1 ■ 1 ■ 


1 1 t 1 1 1 1 1 i 1 1 


K 




■ I. 1 1 1 i.J. 4-. - 


1 1 1 1 




];QAl,=iiwqF.,i .... 1 






J— 1-1 . . .i. 1 . . 1.1 


K 




1 1 1 1 1 1 .1 


1 1 1 1 




I,T3^^=lTRI^^,l , , . . 1 




1 1 t L-I-J_L-L. 1.1—1 


L 1 1 1 1 i 1 1 1 1 ..] 


K 




t.l-1 1 1 1 1 


III! 




MQDE=iT.RAN,S 






1 . . . . 1 . 1 . . t 






1 1 1 1 1 1 1 


1 1 1 1 










P.RNT. , . . 






B^S.Z.=^1.3.2„ , 




1 -I.. 1 1 . 1 1 1 1 . 1 1 1 . 1 


i .... 1 ... 1 1 


K 




1 1 1. 1.1.. 


1 1 1 1 




W.i^nY.E.s„. , 




Ix-l-.l ■ 1 ,1. 1 . 1 1 1 . 1 . 1 


1 .... 1 .... 1 


K 










P,HAQ=i2,„ . , 1 




1 1 1 1 I 1 1 1 1 ■ 1 I 1 1 1 


f f 1 . 1 1 1 1 1 t 1 


K 










P,nQ,V-,Fp.F.,. , 1 ■ ■ , ■ 1 1 ■ . 1 . 1 1 ... M 






1 1 1 1 I 1 1 


1 1 1 1 






i 




1 1 1 t 1 1 1 


III! 




WTnM , , ,. .1 


J j_j 1 1 1 1 1 1 1 


J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 I 1 1 1 J 1 1 




1 1 1 1 1 1 1 


1 1 • 1 I ... 


TO... 




-i^-i— ij-j- 1 J— 1. 1 1 . 1 1 1 1 


1 1... 1 1 L 1 1 1 1 1 1 i 


1 i 1 1 . 1 1 1. 1 ., 1 . . 1 . 


1 . 1 1 1 -L-j- 1-1- 




1 .X-L 1 .1 .l„L. . 



E-6 



10. Page 3-19: 

Delete coding line 135 
Column 10 ENTRY 
Column 16 FOF 
Column 78 135 



1 




OPERATION % 

10 


OPtRAND 

If 


t 


COMMCNTt 


72 


BO 


1 1 1 1 ( 1 1 








|B| I . ■ 1 ■ I 1 ■ 1 I 1 ■ 1 1 1 1 


1 . 1 i 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 i 1' 1 i . 1 . I 1 1 1 1 1 • 1 1 




. . 1 , 10/21 


..j_i-x.j— La...i.. 








*■ 1 1 »■ 1 4 1 . 1 1 ■ 1 I 1 1 .1 1 1 1 . 1 1 ■ 1 1 1 1 . 1 1 1 1 . 1 1 1 1 I ■ 1 1 1 1 1 1 1 1 . 1 1 1 1 




. . 1 . 1(?5 


-1. 1 1 1 1 1 1 








• 1 1 1 1 1 1 1 1 ■ I I 1 1 ■ 1 1 1 1 1 1 1 1 1 1 1 1 t 1 1 • 1 1 1 I 1 1 1 1 1 1 1 1 1 1 1 1 1 I 1 1 1 1 






. 1 1 1 1 i 1 t 




EXTI^S 




m^n 1 . . , . 1 . . , . 1 . . 


X.i..i.. 1 1 1 J .1 . 1 .1, 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 L_i_.i_i__i L. 




, . 1 . 115 


, 1, > 1 1 1 1 1 




EXTRN 




p.w. 1 








. . . , l20r 


1 1 1 1 i 1 1 








RBUP , 1 , 1 1 11 1 1 1 1 

1 1 1 1 1 1 1 1 .t.l.i .1,1 1 1 1 1 1 t 1 1 1 1 1 1 1 1 1 1 1 1 1 1 >, 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 




. . 1 ■ 12;5 


1 i_i_i..Li 1. 








^Q*^! 1 i 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ■ 1 1 1 I 1 1 1 1 1 I i 1 1 1 1 1 1 1 1 1 1 1 1 1 I i 




. . 1 . 13£f 














1 ■ ■ 1 ■ lilfil 



11. Page 3-19: 

Insert coding line 146: 
Column 10 GET 
Column 16 READ, CARD 
Column 78 146 



L.... 



, ,"J|qET. . I |RE;At),;C:ARb 



□PEN 



BAD , 



1 ,1 .1 1. 1. 



I I I I I I 



rill 



J_i. 



JlA 



I I.I I II. i-i. .1 



I i. L L t.i-l-l. 



ppl . 1 . .1 




-p^^^^^^i"*' ■ ' ■ ' ■ . . 1 1 1 


- . , . , 


1. 1 • i-i.i_i_i„I 




Pi*y'sf^»&_j?j2iii_j .i.i 1 1 . 1 1 1 1 . 1 1 1 1 1 1 , , 1 , 1 . . 1 , , , , 1 , , , , 1 , . . . 1 . . , . 1 


. .1 . 155 



E.7 



12. Page 3-19: 



Correct coding line 205: 
Column 10 PUT 



Colvimn 16 PRNT, PRWK 



J 1 i L .Lx^ 








^(^^)(i8.) ifHDiRZ 1 1 1 1 1 1 ■ 1 1 1 . 1 • 1 ■■ 1 1 1 1 ■ 1 1 1 1 1 1 1 1 1 1 . 1 1 1 1 1 . 1 






1 1 1 1 1 1 1 








P3AL,(5j,/HDR3. . . I . . 1 .... 1 ... 1 .... 1 




. . 1 , 195 


,a x t 11. 








PJW.T.,iSP./l. 1 .... 1 .... 1 .... 1 .... 1 .... 1 .... 1 .... 1 .... 1 .... 1 




..I ,2SiSi 










^.^W^.'PW^. 1 .... 1 ... 1 1 J. ... 1 .... 1 .... 1 1 .... 1 




. . . . 



13. Page 3-19: 

Delete coding line 210: 
Column 10 GET 
Column 16 READ, CARD 
Column 78 210 



1 1 1 1 1 1 1 

W. . 1 . . 




-Rp/\D„p;i,np 1 .... 1 .... 1 .... 1 ... i 1 ... . r ■. . . ■ 1 . ■ . . 1 • 

Pl^H^lfi^l 1. 1 1 1 1 1 1 1 1 1-1— L 1 1 J 4-i-X, 1 1^1 1 1. 1 ■ I I l-i, JL I..i. 1 1 1. 1 1 1 J t 1,1 1 




1 1 1 1 1 1 1 > 




PJWK.+.1.(I31i).»PKWK. . . . 1 . . 1 . . . . 1 . : ,. . 1 . . . . 1 . . . . 1 , , . , 1 


Mil Uf! 



c o 



